// кнопку «відкрити» на панелі інструментів

       SpeedButton1->OnClick = Open;

       // кнопку «зберегти» на панелі інструментів

       SpeedButton2->OnClick = Save;

}

Механізм команди «Новий» меню «Файл» простий: визначити ім’я файлу пустим значенням і очистити компонент RichEdit1:

void __fastcall TForm1::New(TObject *Sender)

{

        fileName = "";

        RichEdit1->Lines->Clear();

}

Команда меню «Довідка» реалізує виклик довідкової інформації про програму шляхом функції ShowMessage():

void __fastcall TForm1::About(TObject *Sender)

{

    // виводимо довідкову інформацію про програму

    ShowMessage("Текстовий редактор v.1");

}

Пункт меню «Параметри/Перенос слів» реалізує увімкнення/вимкнення переносу слів у редакторі шляхом модифікації властивості WordWrap у компонента RichEdit1:

void __fastcall TForm1::WordWrap(TObject *Sender)

{

    // вмикаємо/вимикаємо перенос слів

    RichEdit1->WordWrap = ! RichEdit1->WordWrap;

    // ставимо/прибираємо галочку біля пункту меню

    N8->Checked = ! N8->Checked;

}

Вихід із програми (пункт меню Файл/Вихід) реалізується із перевіркою на наявність модифікації в тексті редактора і при наявності таких: пропонує зберегти зміни.

void __fastcall TForm1::Exit(TObject *Sender)

{

     // закриваємо форму

     Form1->Close();

}