[angvelem]

Ну и куда "щёлкать"?

Код:

function EnumChildProc(WndCtrl : HWND; lParam : Longint) : Boolean; stdcall;
var
  szClass : array[Byte] of Char;
begin
  GetClassName(WndCtrl, szClass, SizeOf(szClass));
  if (lstrcmpi(szClass, 'TEDIT') = 0) then
  begin
// делаем что нужно
  end;
  Result := True;
end;

procedure TForm2.Button1Click(Sender: TObject);
var
  Wnd: HWND;
begin
  // когда известен точный заголовок
  Wnd := FindWindow(NIL, 'Моё окно');
  // если нет, то
  Wnd := FindWindow('Моё окно', NIL);
  if Wnd <> 0 then
  begin
    if not EnumChildWindows(Wnd, @EnumChildProc, 0) then
    begin
      Exit;
    end;
  end;
end;