Список URL всего сайта (Delphi)

var
  Source: string;
begin
  try
    Source := IdHTTP1.Get(Edit1.Text);
    ListBox1.Clear;
    while Pos('href="', Source) <> 0 do begin
      Delete(Source, 1, Pos('href="', Source) + Length('href="') - 1);
      ListBox1.Items.Add(Copy(Source, 1, Pos('"', Source) - 1));
      Application.ProcessMessages;
    end;
  except
    MessageDlg('Произошла ошибка!!!', mtError, [mbOK], 0);
  end;
end;

<a href="http://site.ru/index.php">
<a href='http://site.ru/index.php'>
<a href=http://site.ru/index.php>
/index.php
./index.php

function PosR2L(const FindS, SrcS: string): Integer;
  function InvertS(const S: string): string;
  var
    i, Len: Integer;
  begin
    Len := Length(S);
    SetLength(Result, Len);
    for i := 1 to Len do
      Result := S[Len - i + 1];
  end;
var
  ps: Integer;
begin
  ps := Pos(InvertS(FindS), InvertS(SrcS));
  if ps <> 0 then
    Result := Length(SrcS) - Length(FindS) - ps + 2
  else
    Result := 0;
end;

function ParsURL(Src: string; URLPage: string): string;
var
  i, y, r1, r2: integer;
  a, url: string;
  sl: TStringList;
  ur, dm: string;
begin
  sl := TStringList.Create;
  i := PosEx('/',URLPage,PosEx('://',URLPage)+3);
  dm := Copy(URLPage,1,i-1);
  i := 1;
  ur := Copy(URLPage,1,PosR2L('/',URLPage)-1);
  // Вытягиваем все <a ...>...</a>
  while PosEx('<a ',Src,i) <> 0 do
  begin
    i := PosEx('<a ',Src,i)+1;
    a := Copy(Src,i-1,PosEx('</a',Src,i)-i+5);
    y := PosEx('href',a);
    if y = 0 then
      Continue;

    y := y + 4;

    if a[y] <> '=' then
    begin
      y := PosEx('=',a,y);
      if y = 0 then
        Continue;
    end
    else
      Inc(y);
	  
    if a[y] = ' ' then
      inc(y);

    if a[y] = '"' then
    begin
      Inc(y);
      url := Copy(a,y,PosEx('"',a,y)-y);
    end
    else
    if a[y] = #39 then
    begin
      Inc(y);
      url := Copy(a,y,PosEx(#39,a,y)-y);
    end
    else
    begin
      r1 := PosEx(' ',a,y);
      r2 := PosEx('>',a,y);
      if (r1 > r2)or(r1 = 0) then
        url := Copy(a,y,r2-y)
      else
        url := Copy(a,y,r1-y);
    end;
    if url = '' then
      Continue;

    url := StringReplace(url,#13,'',[rfReplaceAll]);
    url := StringReplace(url,#10,'',[rfReplaceAll]);    

    if Copy(url,1,4) <> 'http' then
    if url[1] = '/' then
    begin
      url := dm + url;
    end
    else
    if (url[1] = '.') then
    begin
      if url[2] = '/' then
        url := ur + Copy(url,2,Length(url))
    end else
    begin
      url := ur + '/' + url;
    end;
    if url = '' then
      Continue;

    sl.Add(url);
  end;
  Result := sl.Text;
  sl.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
  http: TIdHTTP;
begin
  http := TIdHTTP.Create;
  s := http.Get('http://rutracker.org/forum/index.php');
  memo1.Text := ParsURL(s,http.URL.URI); // 
  http.Free;
end;

var
  Item: integer;
  sl: TStringList;
  http: TIdHTTP;

procedure NameProcedure;
var
  i : integer;
  s: string;
begin
  while true do
    for i := 0 to sl.count - 1 do
    begin
      // ЕСли урл проверялся, пропускаем
      if i <= item then
        Continue;
     item := i;
      // Копирование адреса страницы
      s := sl.strings;
      // Загрузка новой страницы
      s := http.Get(s);
      s := ParsURL(s,http.URL.URI);
      sl.add(s);
    end;
end;