Przychwytywanie adresu przeglądarki- prblem

Witam. Mam problem. Jestem początkujący i znalazłem w dziale Faq fajny kod na przechwytywanie adresu z przeglądarek. Niestety wyskakuje mi błąd. Ogólnie chodzi mi o to:

function  GetURLS: TStringList;
var
  Temp : String;
begin
  result:=TStringList.Create;
  with result do
  begin
    Temp:=GetURL(BSRV_FIREFOX);
    if Temp<>'' then
    begin Add(Temp);Temp:=''; end;
    Temp:=GetURL(BSRV_OPERA);
    if Temp<>'' then
    begin Add(Temp);Temp:=''; end;
    Temp:=GetURL(BSRV_NETSCAPE);
    if Temp<>'' then
    begin Add(Temp);Temp:=''; end;
    Temp:=GetURL(BSRV_IEXPLORE);
    if Temp<>'' then
    begin Add(Temp);Temp:=''; end;
  end;
end;

Delphi nie wie co to jest ten GetURL. Czy może mi ktoś pomóc?

A masz w kodzie te funkcję GetUrl?

najlepiej zamieść treść tego błędu

Kurcze taki głupi błąd. Niedokładnie przeczytałem. Dzięki. Rzeczywiście nie miałem funkcji GetURL.

Sorki że tak post pod postem ale jednak kolejny błąd mam. Pojawiło mi się:

[DCC Error] Unit1.pas(36): E2003 Undeclared identifier: 'PosEx'

w tym kodzie:

function GetURL(const BrowserService: String): String;
var
  S: String;
begin
  with TDdeClientConv.Create(nil) do
  try
    SetLink(BrowserService, 'WWW_GetWindowInfo');
    S := String(RequestData('0xFFFFFFFF'));
    Result := Copy(S, 2, PosEx('"', S, 2) - 2);
    CloseLink;
  finally
    Free;
  end;
end;

A tak ciężko było wcisnąć F1 i zobaczyć, że dla funkcji
PosEx trzeba mieć w uses StrUtils? Poza tym uprzedzając
Twoje kolejne pytanie to na forme musisz dodać sobie, z
palety "standard" komponent Memo, rozszerzyć go nieco i
później w kodzie dla przycisku: Memo1.Lines := GetURLs;

Wielkie dzięki. Wszystko dział.