Formok együttes mozgatása

[mizsi]

Sziasztok!

 

Adott két form, Form1 és Form 2. Az szeretném megoldani, hogy ha a Form1-et tudjam mozgatni, de ne csak a fejlécénél fogva, és ahogy mozgatom, úgy a Form 2 is mozogjon vele együtt. A mozgatást már annyival sikerült megoldanom, hogy betettem a Form 1-re egy hátteret és a

procedure TForm1.BgMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
releasecapture;
Form1.Perform(WM_SysCommand,$F012,0);
Form2.Top:=Form1.Top;
Form2.Left:=Form1.left+Form1.Width;
end;

kóddal, ha a form 1-et bárhol megfogom, tudom mozgatni. De ebben az esetben csak akkor kerül a Form1 mellé a Form2, ha az egeret felengedem.

Van rá valami egyszerű megoldás? Köszönöm. 6 éve nem foglalkoztam Delphivel, és az agysejtjeim elkoptak ezügyben.

[mizsi]

Megvan a megoldás. Ha valakit érdekel, szívesen feldobom.

[zidan]

Igen engem érdekelne.

Elég ha egy linket adsz rá és letöltöm.

Elõre is köszi.