procedure TForm1.New2Click(Sender: TObject);

var answer : integer;

begin

answer:=( MessageDlg('Do you want to save the changes made',

mtConfirmation, mbYesNoCancel, 0));

case answer of

idYes:

if savedialog1.Execute then

memo1.Lines.SaveToFile(savedialog1.FileName) ;

idNo: ;

idCancel: Abort ;

end;

end;