1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,   
  Y: Integer);
var
  CursorPos: TPoint;
begin
  GetCursorPos(CursorPos);
  StatusBar1.SimplePanel := True;
  StatusBar1.SimpleText := Format('The cursor is at (%d, %d)', [CursorPos.X, CursorPos.Y]);
end;