MoveWindow坐标定位,该怎么处理

MoveWindow坐标定位
我用MoveWindow来实现无标题移动。比如我按住窗口的 中间 来实现移动，当鼠标移动后怎么给form赋值。
因为form赋值只能是Y,X，但我按住的位置是中间。如果直接给form赋值Y,X的话移动位置就变的不对了。
只用这个方法来实现，我知道很多方法可以实现无标题移动。

[解决办法]

Delphi(Pascal) code

  PreX,PreY:Integer;implementation{$R *.dfm}procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer);begin  PreX:=X;  PreY:=y;end;procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);begin  if (PreX>0) and (PreY>0) then    MoveWindow(Self.Handle,Self.Left+X-PreX,Self.Top+Y-PreY,Self.Width,Self.Height,True);end;procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer);begin  PreX:=0;  PreY:=0;end;