Написал процедуру поиска окна IE, оно находится, и теперь как-то надо перебрать все компоненты этого окна в поисках введённого текста адреса. Как это сделать ? Окно нашёл так:

function lookIE (Wd: HWnd; Param: LongInt): Boolean; stdcall;
var
nm:array [0..255] of char;
s,t:string;
i:integer;
f:boolean;
begin
GetWindowText(wd,nm,255);
s:=string(nm);
 if s<>'' then begin
  f:=false;
  i:=1;
  t:='Internet Explorer';

   while i<=length(s) do begin
     if t=copy(s,i,length(t)) then begin
      f:=true;

//       Internet Explorer found !!!

     end;
    i:=i+1;
   end;

 end;

lookIE := TRUE;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
EnumWindows(@lookIE, 0);
end;