Ошибка в потоке

TMyThread=class(TThread)
  private
  {Private}
  protected
  procedure Execute;override;
  procedure ListboxAdd;
  end;
 
 
 
 
/Процедура потока для поиска открытых приложений
procedure TMyThread.ListboxAdd;
var
Wnd: hWnd;
buff: array [0..127] of Char;
begin
Form1.Memo1.Clear;
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));
      Form1.Memo1.Lines.Insert(0,StrPas(buff));
      end;
    Wnd := GetWindow(Wnd, gw_hWndNext);
  end;
end;
 
//Поток
Procedure TMyThread.Execute;
begin
while True do
 begin
 Synchronize(ListboxAdd);
 sleep(100);
 end;
end;
 
//Запуск потока из тела программы
begin
ThreadKeeper:=TMyThread.Create(True);// Создаем поток
 ThreadKeeper.FreeOnTerminate:=true; // После завершения выполнения поток авто уничтожиться
 ThreadKeeper.Priority:=tpLower; //приоритет потока нормальный
 ThreadKeeper.Resume; //Запуск потока
end;

//Процедура потока для поиска открытых приложений
procedure TMyThread.ListboxAdd;
begin
 Form1.Memo1.Clear;
Form1.Memo1.Lines.Insert(0,StrPas(buff));
end;
 
//Поток
Procedure TMyThread.Execute;
begin
while True do
 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  //Окна без заголовков
       Synchronize(ListBoxAdd);
  end;
 Wnd := GetWindow(Wnd, gw_hWndNext);
 end;
 
end;

while not Terminated do
  begin
    // тело цикла
    Sleep(500); // пауза в 0.5 секунды, незачем крутить чаще
  end;