вывод из txt каждой строки по очереди в мемо...

[nikolas0]

Вообщем нужно чтоб при нажатие на бутон в мемо выводилась сначало первая строка из файла txt при следующим нажатие следующая и тд до конца.
пробую вот так

var
  Form9: TForm9;
  Rez : boolean = false;

  user:String;
const
  FilePass = 'login.txt';
implementation

{$R *.dfm}

procedure TForm9.Button1Click(Sender: TObject);
var
i:integer;
LoginUserList : TStringList;
begin
    LoginUserList:=TStringList.Create;
if Rez then
    Rez:=false
else
    begin
// Открытие и загрузка файла паролей
try
LoginUserList.Clear;
LoginUserList.LoadFromFile(FilePass);
except
end;
if LoginUserList.Count<=0 then
  begin
    Application.MessageBox('Файл паролей не найден или его нельзя использовать','Ошибочка вышла парень!', mb_Ok);
  exit;
  end
else
  begin
   ShowMessage('Старt!');

   for i:=0 to LoginUserList.Count-1 do //перебираем все строки
    begin
     user :=copy(LoginUserList[i],1); //копируем в name - всё что до ";", тоесть имя
     memo1.Text := user;//показываем какой пароль подставляется сейчас
    end;
  end;
end;



    end;

end.

не выходит!показывает последнюю строку файла.
Где ошибка?
подскажите...

[Sibedir]

var
  TF: TextFile;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  if OpenDialog1.Execute then begin
    AssignFile (TF, OpenDialog1.FileName);
    Reset(TF);
  end
  else
    Halt;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  s: String;
begin
  if not EOF(TF) then begin
    Readln (TF, s);
    Memo1.Lines.Add(s);
  end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  CloseFile(TF);
end;

[nikolas0]

Спасибо большое!
помогло.
Хотя конечно не совсем то,но щас перекую
смысл главное тот что нужно.
Ещё раз спасибо

[nikolas0]

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

[psycho-coder]

Загрузите файл в TStringList. А по нажатию кнопки выводите в Мемо, построчно с помощью Strings

private
  sl: TStringList;

...
// Загрузка
begin
  sl := TStringList.Create();
  sl.LoadFromFile('file.txt');
end;

procedure Button1Click(Sendere: TObject);
begin
  if Memo1.Lines.Count = 0 then
    Memo1.Lines.Add(sl.Strings[0])
  else if sl.Count >= Memo1.Lines.Count then
    Memo1.Lines.Add(sl.Strings[Memo1.Lines.Count - 1]);
end;

До остального надеюсь сами додумаетесь

[nikolas0]

Спасибо большое ещё одно!!!
всё сделал работает