[Yurk@]

Можно сделать так:
Процедура окончания перемещения Формы1

Код:

procedure TForm1.FormEndDock(Sender, Target: TObject; X, Y: Integer);
begin
Form2.Left:=Form1.Left+Form1.Width; //Левой границе Формы2 = Левая граница Формы1+Ширина Формы1
Form2.Top:=Form1.Top; //Выравниваем Верхние границы
end;

Процедура показа Формы2
procedure TForm1.FormShow(Sender: TObject);
begin
Form2.Show;
end;