移动无title窗体

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,   Y: Integer); begin       //移动窗体，本省窗体没有title，不能移动   if (ssLeft in Shift) then   begin     ReleaseCapture;     SendMessage(Form1.Handle,WM_SYSCOMMAND,SC_MOVE+1,0);   end; end;