[Myrik]

надо из мемо уже к сохраненному добавить
в общем записываю вот таким образом:

Код:

  SaveDialog1.InitialDir:='D:\';
  SaveDialog1.Filter:='Текстовые файлы|*.txt';
  if SaveDialog1.Execute then
    begin
       AssignFile(f,SaveDialog1.FileName+'.txt');
       Rewrite(f); 
       for i:=1 to Memo1.Lines.Count do
         begin
            Writeln(f, Memo1.Lines[i-1]);
        end;
     CloseFile(f);
   end;

а как назад вытащить не знаю