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

[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]

сделал
А как узнать что храниться в мемо, стоит ли галочка на чекбоксе. Что еще можно из них вытащить?

Добавлено через 3 мин.
и если у меня 2 попап меню, как их найти? getmenu/getpoapmenu найдут первое меню, а через EnumChildWindows оно не находиться