[vbv]

Вот этот код подходит

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 KP, KS : Integer;
 S, Word : string;
 begin
 S := RichEdit1.text;
 KP := Pos('<a href="#nodo" onclick="page.userData.refresh(true);">', S);
 KS := Pos('</a>', S);
 while KP > 0 do begin
 Word := Copy(S, KP+55, KS-KP-55);
 ShowMessage(Word);
 Inc(KP); KP := PosEx('<a href="#nodo" onclick="page.userData.refresh(true);">', S, KP);
 Inc(KS); KS := PosEx('</a>', S, KS);
 if KS = 0 then KS := Length(S)+1;
 end;
 end;

но! Если грузить в программу не весь файл(407 строк начиная с 407й). При полной подгрузке текста(700 строк)

Код:

ShowMessage

выдаёт пустое окошко.

На всякий случай исходник с текстом прикрепил.