Mover varias Ventanas a la Vez

[FENIXadr]

Hola gente.. tengo una consultita sobre mover los Forms..
con este código... (que lo encontré navegando por ahí)
.....
........
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
begin
ReleaseCapture;
SendMessage(Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0);
end;
end;
......
......

se puede hacer que un Form se mueva haciéndole click en cualquier lado.. (funciona espectacularmente) ahora bien.. la pregunta es esta...
Como puedo hacer para que cuando este Form se mueve, otro Form que esta al aldo de éste se mueva a la vez??

desde ya Muchas Gracias...