Не верная работа GetWindowText с google Chrome - Delphi WinAPI

[V1ruSpw]

Имеется прекрасный софт, который ищет название всех заголовков окон открытых в системе, а так же кусок кода который говорит hwnd окна в слуае если имеется с таким названием . Суть проблемы такова : поэкспериментировав с гугл хромом и апи функцией GetWindowText обнаружилась проблема, которую по крайней мере я , не могу исправить, так как не понимаю в чем собственно проблема.

Для демонстрации бага была эмулирована работа по таймеру апи функции GetWindowText. При открытии новой вкладки в браузере гугл хром, именно не пустой вкладки а вкладки с имеющейся информацией, к примеру с любого поисковика, в момент ее создания при вызове функции GetWindowText происходят проблемы которые крашут приложение. Это Access Violation Write at adress .... после чего Stack OverFlow. Программа написана на Embarcadero Rad Studio XE7. Подскажите в чем может быть проблема и как ее решить?

PHP код:

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Button2: TButton;
    Edit1: TEdit;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 
 
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
var wnd: hwnd;
    buff: array [0..127] of char;
begin
wnd := GetWindow(handle, gw_hwndfirst);
 
while wnd <> 0 do
  begin // Не показываем:
    if (wnd <> Application.Handle) // Собственное окно
      and IsWindowVisible(wnd) // Невидимые окна
   //   and (GetWindow(wnd, gw_owner) = 0) // Дочерние окна
      and (GetWindowText(wnd, buff, SizeOf(buff)) <> 0) then
 
  begin
  GetWindowText(wnd, buff, SizeOf(buff));
 // Memo1.lines.Add(StrPas(buff));
  end;
wnd := GetWindow(wnd, gw_hwndnext);
end;
 
 
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var a:hwnd;
begin
a:=FindWindow(nil, PWideChar(Edit1.text));
 
end;
 
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 //  Button2Click(Sender);
   Button1Click(Sender);
end;
 
end. 


[phomm]

Ну, например, сперва можно бы увеличить размер буфера

buff: array [0..127] of char;

раз этак в 8 (0..1023) или ещё больше.
Потом я бы проконтролировал Char и следовательно SizeOf(Buff) - на юникодных дельфи чар длиной 2 байта и сайзоф от массива лучше вообще переделать на Length(Buff) * SizeOf(Char), ну и юникодные ли версии винапишных функций вызываются.
Последнее - проконтролировал верно ли работает StrPas с таким буфером - хотя бы по справке, может стоит посмотреть в сторону простого каста, т.к. мемо себе юник строку создаст всё равно, а не будет брать ссыль на буфер.

[Человек_Борща]

Для узнавания размера требуемого буфера есть GetWindowTextLength, а у самой GetWindowText есть Return value, исходя из которого можно вызвать ShowMessage с GetLastError.

И наконец последнее, для Winodws, Google Chrome это одно окно, внутри которого нет других компонент, т.е. браузер все внутренности сам рисует.

[V1ruSpw]

Проблема была решена добавлением слипа в 40 ms перед GetWindowText.