Запрос на сервер. Делфи.

[Desprado]

Собственно благодаря одному человеку который так же посещает этот форум я добился и освоил почти свою программу.(ну или не мою )
Собственно есть программа в которую вводишь слово цифры или что то иное, оно проверят в определенном текстовом файле это слово и говорит о том, есть ли это слово в этом тексте или нет.
Теперь возник такой вопрос, есть сайт хостинг ftp я хочу этот файл залить на этот хост. Как мне сделать что бы программа соединялась с сервером и проверяла слово в текстовом файле который лежит на сервере..?

[Пепел Феникса]

например через idFTP соединится с сервером, скачать файл, проверить в нем, удалить.

[Desprado]

а тяжело будет сделать типа кнопу обновить* что бы допустим Жмешь на нее
оно качает этот файл в то место где прога а потом проверяет..

[Desprado]

Народ подскажите как мне сделать один код с этих двух
по моему вопросу.

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;

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer; fName: string; sl: TStringList; b: Boolean;
begin
m.Clear;
if e.Text = '' then
begin
m.Lines.Add('Пустой текст!');
Exit;
end;
fName := 'Test.txt';
if not FileExists(fName) then
begin
m.Lines.Add('Файл не найден!');
Exit;
end;
b := False;
sl := TStringList.Create;
sl.LoadFromFile(fName);
for i := 0 to sl.Count - 1 do
begin
if Pos(e.Text, sl[i]) <> 0 then
begin
b := True;
Break;
end;
end;
if b then
m.Lines.Add('Текст <' + e.Text + '> в файле найден') else
m.Lines.Add('Текст <' + e.Text + '> в файле НЕ найден');
sl.Free;
end;