[Desprado]

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

как мне сделать один код с этих двух:

Код:

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;