[Adrenalin666]

Код:

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm3 = class(TForm)
    Memo1: TMemo;
  private
    { Private declarations }
  public
    { Public declarations }
  end;


var
  Form3: TForm3;

implementation

{$R *.dfm}


var
   f: TextFile;      // файловая переменная
   fName: String;    // имя файла
   buf: String;      // буфер для чтения из файла

begin
   fName := 'Log';
   AssignFile(f, fName);

   try
       Reset(f);  // открыть для чтения
   except
     on e: EInOutError do
     begin
       MessageDlg('Ошибка доступа к файлу' + #13+
                   e.Message, mtError,[mbOk],0);
       exit;
     end;
   end;

   // чтение из файла
   while not EOF(f) do
     begin
        readln(f, buf);       // прочитать строку из файла
        Memo1.Lines.Add(buf); // добавить строку в поле Memo1
     end;

   CloseFile(f); // закрыть файл
end.

Memo1.Lines.Add(buf); на это вот ругается но с чего вдруг?