Ах да, при таком коде будет глючить при старте программы, так как будет идти обращение к форме, которая ещё не успела создаться. Тогда надо ещё добавить глобальную переменную Prepared типа Boolean (будет сообщать, готова или не готова вторая форма).
Code
var
Form1: TForm1;
Prepared: Boolean = False;
А в обработчике OnCreate второй формы написать
Code
procedure TForm2.FormCreate(Sender: TObject);
begin
Unit1.Prepared:=True; // сообщает о создании формы
end;
И переписать обработчик перемещений первой формы
Code
procedure TForm1.OnMove(var Msg: TWMMove);
begin
inherited;
if Prepared then
begin
Form2.Left:=Self.Left;
Form2.Top:=Self.Top + 225;
end;
end;
