procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: integer);
begin
      if Shift<>[ssLeft] then
     begin
       MX:=X;
       MY:=Y;
     end else
     begin
       Form1.Left:=Left+X-MX;
       Form1.Top:=Top+Y-MY;
       Form2.Left:=Left+X-MX;
       Form2.Top:=Top+Y-MY;
     end;
end;