Quellcode von TWebbrowser auslesen dauert extrem lang

[napsterxx]

Hallo ihr lieben.
Ich fodere mit einer TWebbrowser Komponente eine Website an, diese ist sehr groß (rund 2,2MB) und enthält eine Liste (rund 7000 Einträge). Wenn nun die Website geladen ist hole ich mir den Quellcode, und gehe diesen danach durch, lösche einige Sachen, sodass ich am Ende alle Namen der Einträge habe - funktioniert auch prima - bei 50 Einträgen aber bei 7000 steht eigentlich alles. Es dauert extrem lang den Quellcode du "phrasen" sprich nach den einzelnen Namen zu suchen. Derzeit mache ich das so:

Delphi-Quellcode:

    while(Pos('/download/', swHTMLText) > 0) do
    begin
        Delete(swHTMLText, 1, Pos('/download/', LowerCase(swHTMLText)) + Length('/download'));
        titel := Copy(swHTMLText, 1, Pos('/', swHTMLText)-1);
         ToDo.Add(link);
    end;