//-----------------------------------------------------------void __fastcall TMainForm::FileSaveAsClick(TObject *Sender)
{
SaveDialog->Title = "Save As";
if (SaveDialog->Execute()) {
Memo->Lines->SaveToFile(SaveDialog->FileName);
Memo->Modified = false;
}
}
//-----------------------------------------------------------