procedure Imge1MouseDown(..);
begin
  ReleaseCapture();
  SendMessage(Form1.Handle, WM_SYSCOMMAND, $F012, 0);
end;