html parse repeat

[ercanskose]

arkadarlar html parse işlemi yapıyorum. sitenin kaynak kodunu aldım aşağıdaki kodla veriyi aradan çektim fakat kaynak kodu bitene kadar tüm verileri çekemedim. sadece ilk gördüğü veriyi alıyor. repeat işlemi nasıl yapabilirim.

Function aradansec( text, ilk, son:String ): String;
begin
 Delete(Text, 1, pos(ilk, Text) + Length(ilk)-1);
 Result := Copy(Text, 1, Pos(Son, Text)-1);
end;