[dr. F.I.N.]

Код:

var
  f: Text;
...
implementation
...
procedure ...
var
  s: String;
begin
  AssignFile(f, 'YourFileName');
  Reset(f);
  while not EOF(f) do
  begin
     ReadLn(f, s);
     if Memo1.Lines.Count = 0 then
     Memo1.Lines.Add(s)
     else
     Memo1.Lines.Insert(1, s);
  end;
  CloseFile(f);
end;