Eventos OnMouseDown, OnMouseMove, OnMouseUp

he, he.

Coloque esse código no seu form e veja vc mesmo:

ONMOUSEMOVE
==========
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Label1.Caption := ´X: ´+inttoStr(X) + ´ - Y: ´+IntToStr(Y);
end;

ONMOUSEDOWN
===========
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Label2.Caption := ´Mouse Down em X: ´+IntToStr(X)+´ - Y: ´+IntToStr(Y);
end;

ONMOUSEUP
========
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Label3.Caption := ´Mouse UP em X: ´ +IntToStr(X)+´ - Y: ´+IntToStr(Y);;
end;


Mova, Clique arraste e solte.

Um Abraço,