procedure TForm1.FormCreate(Sender: TObject);
begin
  SaveDialog1.Options := SaveDialog1.Options + [ofOverwritePrompt];
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
    Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;