а что тут непонятного...
вот пример.
Код:
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
pt:TPoint;
begin
getcursorpos(pt);
form1.Caption:=inttostr(pt.x)+' '+inttostr(pt.y);
end;
в результате getcursorpos(pt); у pt два свойства всего появляются pt.x и pt.y что тебе и нужно.