1:
2:

for i := 0 to AHeaders.count -1 do
listbox1.items.add(AHeaders.Strings[i]);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

function GetIE_URL(var List: TStringList): Integer;
var sw  : TShellWindows;
    i,j : integer;
    ie  : IWebBrowser;
begin
 i := 0;
 List := TStringList.Create;
 sw := TShellWindows.Create(nil);
 for j := 0 to (sw.Count-1) do begin
  sw.item(j).QueryInterface(IWebBrowser, ie);
  if ie <> nil then begin
   List.Add(ie.Get_LocationURL);
   Inc(i);
  end;
 end;
 If i = 0 Then List.Destroy;
 Result := i;
end;