Вывод результатов!

[Серый Рыйцарь]

У меня вопрос. Есть файл, как сделать, чтобы информация из него выводилась на экран в memo/label? Знаю что команда проста, но не знаю горю помогите пожайлуста! Информации может быть много даже целый документ, тип тхт. Заранее благодарен!

[spamer]

var
    f:TextFile;  
    s:String;
begin
  AssignFile(f,'file.txt'); 
  Reset(f); 
  Read(f,s);     
  Memo1.Lines.Add(s);
  CloseFile(f);
end;

[Серый Рыйцарь]

Чето не выводит =(

[Chudo4258]

а может так???:

var
    f:TextFile;  
    s:String;
begin
  AssignFile(f,'file.txt'); 
  Reset(f); 
  while not(eof(f)) do
  begin
  Readln(f,s);     
  Memo1.Lines.Add(s);
  end;
  CloseFile(f);
end;