Aradan seç pas geçme

[Altıner]

Merhaba,

web site parese yaparak verileri almaya çalışıyorum fakat aradan seç çok sık olarak aradan seç işlemini yaparken tüm verileri alıyor.

Nerede hata yapıyor olabilirim? veya faklı bir yöntem öneriniz var mı?

 Memo1.Lines.Add(BreakOff(IDivClassName.InnerHTML, '<SPAN class="a-size-base a-text-normal">', '</SPAN>')); // Title

function TMainForm.BreakOff(Text, First, Last: String): String;
begin
  Delete(Text, 1, Pos(First, Text) + Length(First) - 1);
  Result := Copy(Text, 1, Pos(Last, Text) - 1);
end;