1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:

procedure TForm1.Button6Click(Sender: TObject);
var
  htmlDoc: IHTMLDocument2;
  allLinks: IHTMLElementCollection;
  firstLink: IHTMLElement;
  url, s : String;
  count, x, link, i : integer;
  aHref : IHTMLElement;
  v, b : Integer;

begin
  ini := TIniFile.Create(ExtractFilePath(Application.ExeName)+'system.ini');
  try
    v := ini.ReadInteger('System', 'start', 1);
    b := ini.ReadInteger('System', 'end', 300000);
    while v < b do
      begin
        edit4.Text := IntToStr(v);
        embeddedWB2.Navigate('http://url.de/highscore.php?mode=1&von=' + IntToStr(v) +'&submit=Anzeigen#hs');
        delay(StrToInt(Edit6.Text));

        htmlDoc := embeddedwb2.Document as IHTMLDocument2;
        allLinks := htmlDoc.links;
        count := htmlDoc.Links.Length;
//        firstLink := allLinks.Item(0,'') as IHTMLElement;
//        url := firstLink.toString;
//        memo3.Text:= url;

        if count > 0 Then
        begin
        memo3.Clear;
          for x := 0 to -1 + count do
          begin
            aHref := allLinks.Item(x,'') as IHTMLElement;
            url := aHref.toString;
            link := Pos('http://url.de/userdetails.php', url);
            if link <> 0 then
            begin
            //  ShowMessage('gefunden an Position: '  + IntToStr(Position))
            memo3.Lines.Add(url);

            ADOTable1.Append;
            ADOTable1.FieldByName('Link').AsString := url;
            ADOTable1.FieldByName('New').AsString := '1';
            ADOTable1.Post;
            
            //s := 'INSERT INTO Charlie (Link) VALUES ("'+ url +'")';
            //AdoQuery1.Close;
            //AdoQuery1.SQL.Clear;
            //AdoQuery1.SQL.Add(WideString(s));
            //ADOQuery1.ExecSQL;
            //AdoQuery1.Close;
            end;

          end;
        end;
        v := v + 50;
        ini.WriteInteger('System', 'start', v);

        if CheckBox1.Checked = true Then Break;
      end;
  finally
  ini.Free;
  end;

end;                    

1:

<a href="#" class="openUserDetails" rel="283527">                    

1:

<a href="#" class="openUserDetails" rel="316558">