Проверка сайтов на наличие слова на странице

[Stilet]

Из потоков нужно повыкидывать все обращения к Form1.
Если есть какие-то данные, которые нужно передавать в поток то передавай их через некоторые поля потока.
Form1.MemoSave.lines.Add(link); тоже выкинуть из всех потоков. Лучше потом по завершению работы сохранять или по закрытию формы.

[min@y™]

Сообщение от Stilet

Из потоков нужно повыкидывать все обращения к Form1.
Если есть какие-то данные, которые нужно передавать в поток то передавай их через некоторые поля потока.
Form1.MemoSave.lines.Add(link); тоже выкинуть из всех потоков. Лучше потом по завершению работы сохранять или по закрытию формы.

Да погоди ты про потоки. Сначала лучше сам поиск допилить, а уже потом делать его многопоточность. Но ты прав, конечно. Выпилить оттуда VCL необходимо. И крит. секция нафиг не нужна.

[VitProff]

Переписал проект под Indy в один поток на найденному в сети примеру

procedure TPotok.Execute;
begin
  for i:=0 to Form1.sMemo1.Lines.Count-1 do
  begin
    try
      site:=Form1.sMemo1.Lines.Strings[i];
      html:=HTTP.Get(site);
    except
    end;
    if Pos('slovo', html)<>0 then
     begin
       rez:=1;
       Synchronize(Sync);
     end
    else
      begin
        rez:=0;
        Synchronize(Sync);
      end;

    if Potok.Terminated then break;
  end;
  HTTP.Free;
end;

procedure TPotok.Sync;
begin
if (rez=1) then
  begin
    Form1.sMemo2.Lines.Add(site);
  end;
if (rez=0) then
  begin
    Form1.Label3.Caption:=IntToStr(StrtoInt(Form1.Label3.Caption)+1);
  end;

end;

Когда я через свою программу проверяю найденные в XLink Checker ссылки то у меня они также найденные, тоже самое когда проверяю не найденные в XLink Checker то у меня они также не найденные.
Но когда я проверяю весь список ссылок то у меня почему-то выдает много найденных ссылок, несколько раз проверял. Примерно 420-430 из 500 при том что XLink Checker находит примерно 200-210 из 500.

Почему так происходит не пойму.