[eXplorer]

В событиях onMouseUp, onMouseDown, onMouseMove: прописаны переменные (x и y) - координыты курсора;


например:
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
edit1.Text:=inttostr(x)+'x'+inttostr(y);
end;
end.