Articles

You can use onMouseMove event for your form. This event has coordinates of mouse position.

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Label1.Caption:=IntToStr(X);
  Label2.Caption:=IntToStr(Y);
end;