unit Unit8;

interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, lib, RegExpr, ShellAPI, Math;

  type
  th_follow = class(TThread)
  PRIVATE
    { PRIVATE declarations }
  protected
    procedure Execute; override;
    procedure Adds;
  PUBLIC
  end;

implementation
uses unit1;
procedure th_follow.Adds;
BEGIN
 inc(pms);
  IF NOT (INT >= Form1.mmo6.lines.count) THEN
  BEGIN
    str := Form1.mmo6.lines[pms];
  end
  ELSE
  BEGIN
    str := 'exit';
    Work := FALSE;
  end;
end;

procedure th_follow.Execute;
var
  link,lin,follow,indexz,res,serch,stroka:string;
  i:INTEGER;
  BEGIN
WHILE Work=TRUE DO
BEGIN
  link:=Form1.mmo6.Lines[i];
  res:=send('GET',''+link+'');
  form1.mmo2.Lines.Add('['+TimeToStr(MyTime)+'] Делаю запрос к сайту:'+link);
  serch:=Form1.Sedit1.TEXT;
  IF Pos(serch,res)<>0 THEN
  lin:='Есть'
  ELSE
  lin:='Нету';
  IF Pos('<noindex>',res)<>0 THEN
  indexz:='Есть'
  ELSE
  indexz:='Нету';
   IF Pos('rel="nofollow"',res)<>0 THEN
  follow:='Есть'
  ELSE
  follow:='Нету';
  with (form1.sListView1.Items.Add()) DO BEGIN
  //
  Caption:=link;
  SubItems.Add(lin);
  SubItems.Add(indexz);
  SubItems.Add(follow);
end;
synchronize(Adds);
IF str='exit' THEN goto finish;
end;
form1.mmo2.Lines.Add('###################################################### Работа успешно завершенна! ######################################################');
end;
  end.