Wie man an die aktuelle Mausposition rankommt, kann ich dir im Moment nicht sagen,
deshalb die feste Position 10/10.
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var
h : HWND;
s :
string;
mp : TPoint;
begin
mp := Point(10, 10);
// Mausposition
h := WindowFromPoint(mp);
// hole Fensterhandle
setLength(s, 200);
GetWindowText(h, PChar(s), 200);
// hole Text zum Handle
Caption := s;
// Als Caption anzeigen
end;