[UltraBloxX]

Проблема решилась следующей функцией

Код:

function MyGetWindowText(h: THandle): string;
var
    len: Integer;
    txt: PWideChar;
begin
    len := SendMessage(h, WM_GETTEXTLENGTH, 0, 0) + 1;
    GetMem(txt, len);
    SendMessage(h, WM_GETTEXT, len, Longint(txt));
    Result := txt;
    FreeMem(txt);
end;