获取鼠标坐标

procedure TForm1.FormClick(Sender: TObject);
var
  P: TPoint;
begin
  GetCursorPos(P);
  Self.Caption := Format('X: %d, Y: %d',[P.X, P.Y]);
end;