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;