Создание функций сохранения, изменения шрифта

Обработчик команды сохранения файла:
if(SaveDialog1->Execute())
Memo1->Lines->SaveToFile(SaveDialog1->FileName);
Если был вызван диалог сохранения файла «if(SaveDialog1->Execute())«, наш текст «Memo1->Lines» сохраняется в выбранный в диалоге файл «SaveToFile(SaveDialog1->FileName)»
Обработчик команды изменения шрифта:
if(FontDialog1->Execute())
Memo1->Font=FontDialog1->Font;
Если был вызван диалог изменения шрифта «if(FontDialog1->Execute())«, то шрифт поля ввода текста «Memo1->Font» меняется на выбранный в диалоге «=FontDialog1->Font»
Функция очистки редактора:
Memo1->Clear;