[Alegun]

Код:

uses GetUrlBrowser;
procedure TForm1.Button1Click(Sender: TObject);
begin
 Label1.Caption:= GetURL( 'IExplore' {'Opera' etc.} );
end;

Проверил, - с ИЕ, оперой и ФФ работает, а вот хрома просто нет в наличии