como recuperar historico navegacao ( delphi )

procedure rtnexibir_historico_navegacao(Urls: TStrings);
var
Reg: TRegistry;
S: TStringList;
i: Integer;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('SoftwareMicrosoftInternet ExplorerTypedURLs', False) then
begin
S := TStringList.Create;
try
reg.GetValueNames(S);
for i := 0 to S.Count - 1 do
begin
Urls.Add(reg.ReadString(S.Strings[i]));
end;
finally
S.Free;
end;
Reg.CloseKey;
end;
finally
Reg.Free;
end;
end;

como capturar informacao do navegador ( delphi )

uses ddeman;

function rtncapturar_titulo_url_navegador(service: string): String;
var
  ClDDE: TDDEClientConv;
  temp:PChar;
begin
  Result := '';
  ClDDE:= TDDEClientConv.Create( nil );
  with ClDDE do
  begin
    SetLink(Service,'WWW_GetWindowInfo');
    temp := RequestData('0xFFFFFFFF');
    Result := StrPas(temp);
    StrDispose(temp);
    CloseLink;
  end;
  ClDDE.Free;
end;

como usar:
showmessage(GetURL('IExplore'));
showmessage(GetURL('Firefox'));