Друг сказал сделать что то типа такого,
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
List : TidHTTP;
s : String;
begin
List := TidHTTP.Create(nil);
try
s := List.Get('http://www.desprado.org.ua/log/Test.txt');
except
ShowMessage('Сообщение об ошибке');
end;
FreeAndNil(List);
if pos('Ваше искомое слово', s) <> 0 then ShowMessage('Слово нашлось') else ShowMessage('Слово не нашлось');
end;
но я не знаю как отредактировать под свой код
