1:
2:
3:

NMHTTP1.Get(URL);
Memo1.Text := NMHTTP1.Body;
if Pos('<a', Memo1.Text) <> 0 then //naja, weiß noch nicht weiter;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.Button2Click(Sender: TObject);

var
  a, b: integer;
Begin
  a:=Pos('<a href=', Memo1.Text);
  b:=Pos('/a>', Memo1.Text);
  ShowMessage(Copy(Memo1.Text, a+1, b-1-a));

End;					

1:

<A HREF="KJLJJ"></A>					

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to Webbrowser1.OleObject.Document.links.Length - 1 do
    Listbox1.Items.Add(Webbrowser1.OleObject.Document.Links.Item(i));
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
  aUrl: string;
  searchUrl: string;

begin
  searchUrl := 'http://www.url.de/viewitem=';

  for i := 0 to Webbrowser1.OleObject.Document.links.Length - 1 do begin
    aUrl := Webbrowser1.OleObject.Document.Links.Item(i);

    if Pos(aUrl, searchUrl) > 0 then
      Listbox1.Items.Add();

    { kann auch so gemacht werden:

    if Copy(aUrl, 1, length(searchUrl)) = searchUrl then
      Listbox1.Items.Add();

    }
  end;
end;