[angvelem]

Код:

// чтение файла и вывод в Memo
var
  F : TextFile;
  I : Integer;
  S : String;
begin
  Memo1.Clear;
{$I-}
  AssignFile(F, 'f1.dat');
  Reset(F, 1);
  for I := 0 to 4 do
  begin
    ReadLn(S);
    Memo1.Lines.Add(S);
  end;
  CloseFile(F);
{$I+}  
end;

то есть, предварительно нужно создать этот файл, иначе и будет пусто.