Чтение из файла

var
list:TStrings;
str:string;
begin
 list :=TStringList.Create; //инициализация файла
 list.LoadFromFile :=(IdHTTP1.Get('http://site adress/твой file.txt'));//загружаем текст 
                                                              //из файла с сайта
   str :=list.Strings[5]; //считываем, например, 5-ю строку из файла
 Memo1.Lines.Add(str); //вывод в Memo
list.free; //завершаем работу с файлом
end;

var
list:TStrings;
i:integer;
str:string;
begin
 list :=TStringList.Create; 
 list.LoadFromFile :=(IdHTTP1.Get('http://site adress/твой file.txt'));                                                   
for i:=0 to list.Count-1 do //перебор строк до конца файла
begin
   str :=list.Strings[i]; //считываем i-ю строку из файла
 Memo1.Lines.Add(str); 
end;
list.free;
end;

procedure TProtectForm.sButton1Click(Sender: TObject);
var
hddid: string; z: integer;  s:string;
begin
Self.ModalResult:=0;
z:=Logins.IndexOf(sEdit1.text);
if not ( (z>=0) and (Passwords[z] = md5(sEdit2.Text+salt)) ) then begin
  sLabel4.Visible:=true;
  exit;
end;
try
  s:=AnsiReverseString(DiskScaner);
  hddid:=IdHTTP1.Get('сайт'+AnsiReverseString(s)+'.txt');
  Self.ModalResult:=777;
  self.CloseModal;
  exit;
except
  ShowMessage('нет подключения');
end;
end;

var
list:TStrings;
i:integer;
str:string;
begin
 list :=TStringList.Create; 
 list.Text :=IdHTTP1.Get('http://site adress/твой file.txt'); //см. сюда                                                   
for i:=0 to list.Count-1 do //перебор строк до конца файла
begin
   str :=list.Strings[i]; //считываем i-ю строку из файла
 Memo1.Lines.Add(str); 
end;
list.free;
end;

uses NMHttp;
 
function DownloadSite(const Address: String; var SiteBody: TStringList): Boolean;
var
htpSite: TNMHTTP;
begin
Result := False;
Try
SiteBody.Text := '';
htpSite := TNMHTTP.Create(Nil);
Try
htpSite.Get(Address);
Except
htpSite.Free;
Exit;
End;
SiteBody.Text := htpSite.Body;
Result := (Pos('Object Not Found', htpSite.Header) = 0) And (Trim(htpSite.Header) <> '');
htpSite.Free;
Except
End;
end;

var
Site:Tstrings;
begin
Site := TStringList.Create;
If DownloadSite('http://www.yoursite.com/test.txt', Site) Then 
begin
// прочие операции
end;
Site.Free;
end;

var
list:TStrings;
i:integer;
str:string;
begin
 list :=TStringList.Create; 
 list.LoadFromFile :=IdHTTP1.Get(edit2.Text+'/test.txt');                                                    
for i:=0 to list.Count-1 do //перебор строк до конца файла
begin
   str :=list.Strings[i]; //считываем i-ю строку из файла
if str='Логин' then Form.Show; //если полученная строка содержит текст "Логин",
                                                            // то показываем нужную форму
end;
list.free;
end;

var
list:TStrings;
i:integer;
str:string;
begin
 list :=TStringList.Create; 
 list.LoadFromFile :=IdHTTP1.Get(edit.Text+'/test.txt'); //указываешь адрес сайта                                                    
for i:=0 to list.Count-1 do //перебор строк до конца файла
begin
   str :=list.Strings[i]; //считываем i-ю строку из файла
if (str=edit2.Text) or (str=edit3.Text)  then Form.Show; //если полученная строка содержит текст 
                      //одного из текстовых полей,то показываем нужную форму
end;
list.free;
end;

 list.LoadFromFile(IdHTTP1.Get(edit.Text+'/test.txt'));

var
list:TStrings;
i:integer;
str:string;
begin
 list :=TStringList.Create; 
 list.LoadFromFile(IdHTTP1.Get(edit.Text+'/test.txt')); //указываешь адрес сайта и файл                                                    
for i:=0 to list.Count-1 do //перебор строк до конца файла
begin
   str :=list.Strings[i]; //считываем i-ю строку из файла
if (str=edit2.Text) or (str=edit3.Text)  then Form.Show; //если полученная строка содержит текст 
                      //одного из текстовых полей,то показываем нужную форму
end;
list.free;
end;