拖动Form上的图片，Form一起动

procedure TfrmServerInfo.Image1MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: integer);
begin
  inherited;
  if (ssleft in Shift) then
  begin
    ReleaseCapture;
    Perform(wm_syscommand, $F012, 0);
  end;
end;