1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

function getAllLinks(from:string;tiefe:byte):TStrings;
var i:integer;
begin
  result:=TStringList.Create;
  if tiefe<=0 then exit;
  [ ... alle <a>-Tags finden und in result speichern ... ]
  i:=0;
  while (i<=result.count-1) do 
  begin
    result.add(getAllLinks(result.strings[i],tiefe-1));
    inc(i);
  end;
end;