[angvelem]

После того как вы привели свой код, могу:

Код:

// создание файла и вывод в Memo
var
  F : TextFile;
  I, J : Integer;
begin
  Memo1.Clear;
  Randomize;
{$I-}
  AssignFile(F, 'f1.dat');
  ReWrite(F, 1);
  for I := 0 to 9 do
  begin
    J := Random(100);
    WriteLn(IntToStr(J));
    Memo1.Lines.Add(IntToStr(J));
  end;
  CloseFile(F);
{$I+}  
end;

// чтение файла и вывод в 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;

На вскидку, примерно так.