[Alegun]

Проверьте только, а то без делфи, по памяти написано

Код:

if FileExists(SaveDialog1.FileName) then
 with TStringList.Create do
  begin
    LoadFromFile(SaveDialog1.FileName);
    AddStrings(Memo1.Lines);
    SaveToFile(SaveDialog1.FileName);
    Free;
  end else
 Memo1.Lines.SaveToFile(SaveDialog1.FileName);