поиск компонентов Опции

[Client]

Ищу из другого окна все компоненты (в мемо закинуть их класс хотябы)
FindWindowEx ищет только по классу и находит только одно окно. Делаю так

function enumproc(wnd:hwnd; lparam:lparam):BOOL; stdcall;
var
  s:pchar;
begin
  GetClassName(wnd,s,20);
  form3.Memo1.Lines.Add(s)
end;


procedure TForm3.Button1Click(Sender: TObject);
var
  wnd,wnd1,wnd2:hwnd;
begin
  memo1.Clear;

  EnumChildWindows(FindWindow(nil,'Form1'),@enumproc,0) //это форма другого приложения с кнопкой и мемо
end;

Но вылетает с ошибкой. Что не так?

[Client]

ок, спасиб