[The Shadow]

Код:

procedure AppendFile(Memo: TMemo; FN: String);
var
  i: Integer;
  f: TextFile;
begin
  AssignFile(f, FN);
  Append(f);
  for i:=0 to Memo.Lines.Count - 1 do
  Writeln(f, Memo.Lines[i]);
  CloseFile(f);
end;