function MouseTxt():char;stdcall;
var
Pos: TPoint;
Handle: HWND;
Buf: array[0..1024] of Char;
begin
GetCursorPos(Pos);
Handle := WindowFromPoint(Pos);
SendMessage(Handle, WM_GETTEXT, 1024, Integer(@Buf));
result := Buf;
end;
exports
MouseTxt;
begin
end.