[lmikle]

Тут роще сделать через доп. TStringList.

Код:

procedure SaveText(AFileName : String; AMemo : TMemo; AEdit1, AEdit2 : TEdit);
var
  I : Integer;
  S : TStringList;
begin
  S := TStringList.Create;
  Try
     // читаем существующий текст
     If FileExists(AFileName) Then S.LoadFromFile(AFileName);

     // Добавляем новый
     S.Add(AEdit1.Text);
     S.Add(AEdit2.Text);
     For I := 0 To AMemo.Lines.Count-1 Do
       S.Add(AMemo.Lines[i]);

     // Сохраняем все нафих...
     S.SaveToFile(AFileName);
  Finally
    S.Free;
  End;
end;