C ++ builder dasturida “Daftarcha” dasturini yaratish Formaga

Saqlash deb nomlangan tugmaning kodi
void __fastcall TForm1::Saqlash1Click(TObject *Sender)
{
if (faylnomi!="")
{
Memo1->Lines->SaveToFile(faylnomi);
Memo1->Modified=false;
}
else
{
Saqlashyanginombn1->Click();
}

//SaveDialog1->Execute();

//Memo1->Lines->SaveToFile(SaveDialog1->FileName);
//Form1->Caption=SaveDialog1->FileName;
}
//---------------------------------------------------------------------------
Saqlash(yangi nom b-n) deb nomlangan tugmaning kodi
void __fastcall TForm1::Saqlashyanginombn1Click(TObject *Sender)
{
SaveDialog1->Execute();
Memo1->Lines->SaveToFile(SaveDialog1->FileName);
Form1->Caption=SaveDialog1->FileName;
faylnomi=SaveDialog1->FileName;
Memo1->Modified=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Xabar1Click(TObject *Sender)
{
switch (MessageDlg("Ma'lumotlar o`zgargan. Saqlaysizmi?",mtConfirmation, mbYesNoCancel,0))
{
case mrYes:ShowMessage("Ha");break;
case mrNo:ShowMessage("Yo`q");Close();break;
}
}
//---------------------------------------------------------------------------
Chiqish deb nomlangan tugmaning kodi
void __fastcall TForm1::Chiqish1Click(TObject *Sender)
{
if (Memo1->Modified)
{
//TMsgDlgButtons op;

//op<

switch (MessageDlg("Ma'lumotlar o`zgargan. Saqlaysizmi?",mtConfirmation, mbYesNoCancel,0))
{
case mrYes:Saqlash1->Click();Memo1->Clear();break;
case mrNo:Close();break;
//case mrCancel:Form1->Click();break;
}

Close();
}

}
//---------------------------------------------------------------------------
MainMenu1 menyusidagi Kesish deb nomlangan tugmaning kodi
void __fastcall TForm1::Kesish1Click(TObject *Sender)
{
Memo1->CutToClipboard();
}
//---------------------------------------------------------------------------