Implementation. procedureTControlFom.FormCreate (Sender: Tobject);

{$R *.DFM}

procedure TControlFom.FormCreate (Sender: Tobject);

Begin

Top:= MainForm.Top + MainForm.Height + 4;

Left:= MainForm.Left;

End;

End.

Свои свойства Left и Top вторая форма подстраивает под те же свойства первой формы. При попытке запуска программы, однако, выводится сообщение о том, что не указан модуль, в котором описана первая форма.

Если нажать кнопку Yes, то в раздел uses автоматически добавится ссылка на нужный модуль. Однако, система не всегда автоматически работает. Лучше добавлять ссылки самостоятельно. В данном случае – в раздел implementation.