Универсальный парсер

[kroŧ]

  var
  ban:string;
Ps:integer;

Ps  := Pos(hRef, Ban);   //hRef; //что искать //Ban//где искать
if Ps>0 then  //ищим
begin
// если нашло
end
else begin
//если не нашло
end;

чтобы гугл не банл сделай слип на 5 секунд. Тестил - вроде нормально, хватает

не всегда
набери 100 раз через 20 секунд
inurlrogram.cgi
и получишь бан