hocam diğer sayfadan yanıtlayamadım mesaj atma sınırı varmış

var

  MyForm: TclForm;

  MainScrollBox: TclVertScrollBox;

  

  ImageForm: TclForm;

  ImgDisplay: TclImage; 

  BtnCloseImg: TclProButton;

  

  

  SectionPnl1, SectionPnl2, SectionPnl3, SectionPnl4, SectionPnl5, SectionPnl6, 

  SectionPnl7, SectionPnl8, SectionPnl9, SectionPnl10, SectionPnl11: TclProPanel;

  

  PrintMainBtn, VarMainBtn, OpMainBtn, ConMainBtn, LoopMainBtn, ArrMainBtn, 

  VoidMainBtn, TryMainBtn, FormMainBtn, CompMainBtn, EventMainBtn: TclProButton;

  

  PrintMenuPnl, VarMenuPnl, OpMenuPnl, ConMenuPnl, LoopMenuPnl, ArrMenuPnl, 

  VoidMenuPnl, TryMenuPnl, FormMenuPnl, CompMenuPnl, EventMenuPnl: TclProPanel;

  

  BtnPrintA, BtnPrintB, BtnPrintC: TclProButton;

  BtnVarA, BtnVarB, BtnVarC, BtnVarD, BtnVarE: TclProButton;

  BtnOp1, BtnOp2, BtnOp3: TclProButton;

  BtnCon1, BtnCon2, BtnCon3, BtnCon4: TclProButton;

  BtnL1, BtnL2, BtnL3, BtnL4, BtnL5, BtnL6: TclProButton;

  BtnArr1, BtnArr2, BtnArr3: TclProButton;

  BtnV1, BtnV2, BtnV3, BtnV4, BtnV5, BtnV6: TclProButton;

  BtnTry1, BtnTry2, BtnTry3, BtnTry4: TclProButton;

  BtnForm1, BtnForm2, BtnForm3, BtnForm4: TclProButton;

  BtnComp1, BtnComp2, BtnComp3, BtnComp4, BtnComp5: TclProButton;

  BtnEv1, BtnEv2, BtnEv3, BtnEv4: TclProButton;

void CloseImageForm;

{

  ImageForm.Free; 

}

void AssetleriYukle;

{

  MyForm.AddAssetFromUrl('https://raw.githubusercontent.com/cayesrabetul-pixel/CloStepp/blob/main/unnamed%20(21).png');

/*  YonetimForm.AddAssetFromUrl('https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/ses1.png'); // müzik buton

  YonetimForm.AddAssetFromUrl('https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/ses2.png'); // müzik buton

  YonetimForm.AddAssetFromUrl('https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/restartbtn.png'); // yeniden başlat buton

  YonetimForm.AddAssetFromUrl('https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/char1.jpg'); // karakter 1

  YonetimForm.AddAssetFromUrl('https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/char2.jpg'); // karakter 2

  YonetimForm.AddAssetFromUrl('https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/felaket1.png'); // Felaket görseli

  YonetimForm.AddAssetFromUrl('https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/felaket2.png'); // Felaket görseli

  YonetimForm.AddAssetFromUrl('https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/felaket3.png'); // Felaket görseli

  YonetimForm.AddAssetFromUrl('https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/felaket4.png'); // Felaket görseli

  YonetimForm.AddAssetFromUrl('https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/oyunsonu.png'); // oyun sonu görseli

 YonetimForm.AddAssetFromUrl('https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/nufus.png'); // nüfus görseli

 */

  

}

void OptionClicked;

var 

  ClickedBtn: TclProButton;

  ImgUrl:String;

{

  ClickedBtn = TclProButton(MyForm.clSender);

 //ShowMessage('Seçilen Bölüm: ' + ClickedBtn.Text);

 ImgUrl='';

 

 // 1. Ünite - ShowMessage Kontrolü

  if (ClickedBtn.Text == 'A) ShowMessage Nedir?') 

  {

    ImgUrl = '';// asset konumunu yazıcaz

    

  } 

  

  // 2. Ünite - Değişken Nedir Kontrolü (Hata Aldığın Yer Burasıydı)

  if (ClickedBtn.Text == 'A) Değişken Nedir?') 

  {

    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.

    ImgUrl = 'https://lh3.googleusercontent.com/drive-storage/AJQWtBO5snso1wepxuvzbuI3UyUzK1xlOenChpv3Lnc7WFWzyWerUVDvbl08sX7_wCEFR4NPGnYLHLVJVtf6ZdyRAVFf_ZaDO3bUvD413F-RxlAeBapakA=s220'; 

  }

  if (ClickedBtn.Text == 'B) Veri Türleri Nedir?') 

  {

    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.

    ImgUrl = 'https://lh3.googleusercontent.com/drive-storage/AJQWtBOlz-CdgGQ5RtMNarNvPCyLLCGbn93hBqY0y67t8sKaVpNM1z_dXo9A9GxQZlKkSNDoVh5bgNglixzDEPNzB2t4c5YUyLabVT6Fz8e-eCx1jFzE=s220'; 

  }

  if (ClickedBtn.Text == 'C) Tip Dönüşümleri') 

  {

    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.

    ImgUrl = 'https://lh3.googleusercontent.com/drive-storage/AJQWtBNyyE-MrRcTe4F1yNT0vR9tFhozeHLcWloBHI6m2wbkZTBjwjdz6hNF2n22TSB1G4wuVmkZfA6cvVjo7mZI0g5Njmzc_XmTLcE1dbaxePluXCHJVg=s220'; 

  }

  // 3. unıte

   if (ClickedBtn.Text == '1) Operatör Türleri') 

  {

    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.

    ImgUrl = 'https://lh3.googleusercontent.com/drive-storage/AJQWtBPoFzcmXaNeVYRLyKDLs8zY8DHJoAWtJxr7cgRB99phV0-qdVlEXOtdRE3y3DmkA5Y9d0tHw7-_x-QNpGweq2b8xd_NTdDQ0QI9i8QkVajgsVGEiA=s220'; 

  }

  

  

  //4. unit

   

  if (ClickedBtn.Text == '1) If-Else Nedir?') 

  {

    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.

    ImgUrl = 'https://lh3.googleusercontent.com/drive-storage/AJQWtBP6R2N0h29mid7geHcoWdKUgJ9ECvJtVY0Egu1xMddzLEdwkaeQbo4HUo4stzJWr_zwLotUUx39UvP9MS7epjyL8s1l2mIHXh5bW52UL5xs_iebfw=s220'; 

  }

  

    

  if (ClickedBtn.Text == '2) Case Nedir') 

  {

    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.

    ImgUrl = 'https://lh3.googleusercontent.com/drive-storage/AJQWtBM04dxjbwhAnsm5AsfA_61J-0iuwGj5pezaCp8ehH56mRl5n9XBDFvLyISHSmMOViDXC3x07dNRfS2SK6-sEkRckclLcKj0EmpiSYCqkgLEJMtyWw=s220'; 

  }

 

  //5. unıte

  

  

  if (ClickedBtn.Text == '1) While Nedir?') 

  {

    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.

    ImgUrl = 'https://lh3.googleusercontent.com/drive-storage/AJQWtBPZPJUi9mffkMlZ796vJT8b6ZQfflk_45E_l9ozDpk2U7kY80RHaE4NBr4ZWa4k2rhZ0YdwvcKx534o2j8HjhyrJO6gGf5S_-3Dwoll9-vesrMF5g=s220'; 

  }

  

    

  if (ClickedBtn.Text == '2) Repeat-Until Nedir') 

  {

    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.

    ImgUrl = 'https://lh3.googleusercontent.com/drive-storage/AJQWtBMeX1JQ1P6OrKUjOINnmXOxlfioxa7l-LtGsK320fZVoEVfrDOD_oYfN3FmoI-wH5yDITsyDCLqDpwW-GZxq1Zo4xjtVuJv08qXWvPXNHMPp2GoGA=s220'; 

  }

  

  if (ClickedBtn.Text == '3) For Nedir?') 

  {

    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.

    ImgUrl = 'https://lh3.googleusercontent.com/drive-storage/AJQWtBM_di8SKBjUp34Py5LZr_MQOOHIqoS8kzaw5ERAVmSjFH5jglBl8V2a1MYHCaMYjdPvwuV1AiGBjbD8Jy003EXB8oQRouGkOQLHEPIIeQUL6gwyzA=s220';

    

  }

  

    

  if (ClickedBtn.Text == '4) Döngü Yönlendirme İfadeleri?') 

  {

    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.

    ImgUrl = 'https://lh3.googleusercontent.com/drive-storage/AJQWtBO3xtEfCAk_0y0pn7d5PSc5qLVHPWZrOZD2dj_HptSDPPQrYq-gl0kLjM7VSLsZcFqUd7NQ0sCZnbQljuuhLu76RKLcNh7szm12RLWo6GhlopDIDQ=s220'; 

  }

  

     

  if (ClickedBtn.Text == '1) Diziler Nedir?') 

  {

    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.

    ImgUrl = 'https://lh3.googleusercontent.com/drive-storage/AJQWtBNusKfdHVppKZdVwBMQf_8ihJQmOnKJDimjU6h-IPHjpvA8CtFSav681b0W_pCo-undRqrx6XUD7UD6gcsiH1DEPg_9fUG58LiQj6y0EPY4UbhjUw=s220';

    }

  

  

  

  

  if (ClickedBtn.Text == '1) Parametreli Prosedür?') 

  {

    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.

    ImgUrl = 'https://lh3.googleusercontent.com/drive-storage/AJQWtBNtnyx8ouWVIsgrBCJeYFI-sIdxmUao-0ueNp7fJfUQKfIzTMjegMiRsi9WhrHrh4LAr37ud-cFht6I2tUqMfzDjspdKEwZBGetm3_dif-ZJNb0pg=s220'; 

  }

  

    

  if (ClickedBtn.Text == '2) Parametresiz Prosedür?') 

  {

    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.

    ImgUrl = 'https://lh3.googleusercontent.com/drive-storage/AJQWtBOITMBgkrFncpZejJ5KiKS2-mdlZCXaoIArjNI9NmMiNOre9s_wc2TBjAPayVHlr0rcg5JES3KHDGNvnOhpo_ULyAUlBxGoYrUEQozbbCnupVLw=s220'; 

  }

  

  if (ClickedBtn.Text == '3) Fonksiyon Nedir?') 

  {

    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.

    ImgUrl = 'https://lh3.googleusercontent.com/drive-storage/AJQWtBPgmxpCpL91qe4VHOxrFJEX-DP0BZNAAhzHYhnvbkhqnfi7w7K7jDW9jcvZlB3wscgC6ga6uVeoAjwWeAmjYq6nexiIYdWEihbrFbsqKLtKlok0Zw=s220';

    

  }

  

  if (ClickedBtn.Text == '4) Hazır Kütüphaneler?') 

  {

    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.

    ImgUrl = 'https://lh3.googleusercontent.com/drive-storage/AJQWtBNO597Gp7Ee6ObeeAaVwEu5862E3uwHk5dK3_Maxv_ckuszZ3UTHZyfWSf_psZ4LSfAxhBpIi2GhUqH2aTNmiBxKmahdfKgdphtbQPep4vSnhGOmQ=s220'; 

  }

  

  

    if (ClickedBtn.Text == '1) Try-Except Nedir?') 

  {

    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.

    ImgUrl = 'https://lh3.googleusercontent.com/drive-storage/AJQWtBPgqpkDwg3LyuX5_uL7Nun2jejLyI00qz4oMlfI7AoNciA3rp5jnwJPEx8ckJzYxXhAkHWdyTr4R8L4dxDB1YKmffzl7YlW0O9Ce4UmEiLAknKC9A=s220'; 

  }

  

    

  if (ClickedBtn.Text == '2) Try-Finally Nedir?') 

  {

    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.

    ImgUrl = 'https://lh3.googleusercontent.com/drive-storage/AJQWtBOBeo-LLb6QV3lisd7UT-wXB3R6JB-GQonltBMFUZmsLMnMqS0KS0UpVXdF0BQ_tMEDggKCRamS_3dCBbmXcapSXxlhu-s_x76APAsN5ysKhLW9Dg=s220'; 

  }

  

   if (ClickedBtn.Text == '1) Form Nedir?') 

  {

    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.

    ImgUrl = 'https://lh3.googleusercontent.com/drive-storage/AJQWtBM8uh8JtLTo-V1SeRp_dVzFcqWv_7RhGM7GVMDWxK4OUE4RmwQN5NAcX_c6el0mzugy_c4glYiParpeyuCbhg-v601gWDndyZ-NKRaH0OxUw_Ym=s220'; 

  }

  

   if (ClickedBtn.Text == '2) Form Özellikleri') 

  {

    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.

    ImgUrl = 'https://lh3.googleusercontent.com/drive-storage/AJQWtBNzpP-r2wGpA0229xPeJbE2yp9EvcEyHqZLCmgg-ykaI3JbmYbtYhOLiOGOUyXxkuZXuYwCJ55ft0wCHdW6wqUL4b7ffh6oKaA9a7kqMxOgZPVIhQ=s220'; 

  }

  

   if (ClickedBtn.Text == '1) Çeşitler Nelerdir?') 

  {

    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.

    ImgUrl = 'https://lh3.googleusercontent.com/drive-storage/AJQWtBNE3HB7_TKiO9hlv9oV2wx_FE4-DpBZ0cL3QN68m49v0Ppj-FigiRF6DCJtbz7lnw82JdDJeuTpPDfCMHDMpEQlfVtzN-ApZwL3NwY0q8ZgZX39jA=s220'; 

  }

  

  

   if (ClickedBtn.Text == '2) Ortak Özellikler?') 

  {

    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.

    ImgUrl = 'https://lh3.googleusercontent.com/drive-storage/AJQWtBORWt9MjUtu3vsgyYmZbpv33gWi8N8XgIIuTuDDwDXRGL4rmK9rZdI8nhJ8HxamyCW_IXVzX3gCaUgmicQhxkEB8oH6HQZER9qfVwgQtnAlLdalJQ=s220'; 

  }

  

  

   if (ClickedBtn.Text == '3) Temel Özellikler?') 

  {

    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.

    ImgUrl = 'https://lh3.googleusercontent.com/drive-storage/AJQWtBNpELvwyFpbGpUv0NFMOkbKJxqQK0AnA7CfRcXip5xWv9azDmfp-z838LlhXoR4cJd2Yqh4lMioM3x3_DqbRRSXmLDuSpGbmGFeor6l7AzHkv_-8A=s220'; 

  }

  

    if (ClickedBtn.Text == '1) Events Nedir?') 

  {

    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.

    ImgUrl = 'https://lh3.googleusercontent.com/drive-storage/AJQWtBNwOSDuc1R0-JkZJujUXJBOO7H2lGwRbv2fFOfQePYKiAansaZbXFN7cDgCAO__F6e3mMcySsiKgctBCa4Pj9ytwzKhh8ppB4ToDwuMeYIg0GcIMg=s220'; 

  }

  

    if (ClickedBtn.Text == '2) Çeşitleri Nedir?') 

  {

    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.

    ImgUrl = 'https://lh3.googleusercontent.com/drive-storage/AJQWtBMVsLzO-vBGsU38GSKYAJcpMbWDOhAwQddvdTOhqCRBiGnhwkc6JSKX2jIhnum5kZ1MDayYaxL6Qkc12zxXp5OLCcBJe7dqe2m3ojBaNYJP8Xxvog=s220'; 

  }

  

  // Sadece URL doluysa ve geçerli bir link gibi görünüyorsa işlem yap

  if (Length(ImgUrl) > 8) 

  {

    ImageForm = TclForm.Create(Self);

    ImageForm.SetFormColor('#000000', '', clGNone); 

    

    PrintMenuPnl.Visible = False;

    VarMenuPnl.Visible = False;

    

    ImgDisplay = ImageForm.AddNewImage(ImageForm, 'ImgDisplay');

    ImgDisplay.Align = alClient; 

    

    // Hata veren satır: ImgUrl boş veya hatalıysa uygulama kapanır.

    MyForm.setImage(ImgDisplay, ImgUrl); 

    

    BtnCloseImg = ImageForm.AddNewProButton(ImageForm, 'BtnCloseImg', 'Kapat');

    BtnCloseImg.Align = alBottom; 

    BtnCloseImg.Height = 50; 

    BtnCloseImg.Margins.Bottom = 20; 

    BtnCloseImg.Margins.Left = 50; 

    BtnCloseImg.Margins.Right = 50;

    BtnCloseImg.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E11D48'); 

    BtnCloseImg.clProSettings.FontColor = clAlphaColor.clWhite;

    BtnCloseImg.clProSettings.RoundHeight = 10; 

    BtnCloseImg.clProSettings.RoundWidth = 10;

    BtnCloseImg.SetclProSettings(BtnCloseImg.clProSettings);

    

    ImageForm.AddNewEvent(BtnCloseImg, tbeOnClick, 'CloseImageForm');

    

    ImageForm.Run;

  }

  

}

void CloseAllPanels;

{

  PrintMenuPnl.Visible = False; SectionPnl1.Height = 50;

  VarMenuPnl.Visible = False;   SectionPnl2.Height = 50;

  OpMenuPnl.Visible = False;    SectionPnl3.Height = 50;

  ConMenuPnl.Visible = False;   SectionPnl4.Height = 50;

  LoopMenuPnl.Visible = False;  SectionPnl5.Height = 50;

  ArrMenuPnl.Visible = False;   SectionPnl6.Height = 50;

  VoidMenuPnl.Visible = False;  SectionPnl7.Height = 50;

  TryMenuPnl.Visible = False;   SectionPnl8.Height = 50;

  FormMenuPnl.Visible = False;  SectionPnl9.Height = 50;

  CompMenuPnl.Visible = False;  SectionPnl10.Height = 50;

  EventMenuPnl.Visible = False; SectionPnl11.Height = 50;

}

// --- TIKLAMA OLAYLARI ---

void PrintBtnClick; 

{ 

  if (PrintMenuPnl.Visible) { PrintMenuPnl.Visible = False; SectionPnl1.Height = 50; } 

  else { CloseAllPanels; PrintMenuPnl.Visible = True; SectionPnl1.Height = 200; } 

}

void VarBtnClick;   

{ 

  if (VarMenuPnl.Visible) { VarMenuPnl.Visible = False; SectionPnl2.Height = 50; } 

  else { CloseAllPanels; VarMenuPnl.Visible = True; SectionPnl2.Height = 300; } 

}

void OpBtnClick;    

{ 

  if (OpMenuPnl.Visible) { OpMenuPnl.Visible = False; SectionPnl3.Height = 50; } 

  else { CloseAllPanels; OpMenuPnl.Visible = True; SectionPnl3.Height = 200; } 

}

void ConBtnClick;   

{ 

  if (ConMenuPnl.Visible) { ConMenuPnl.Visible = False; SectionPnl4.Height = 50; } 

  else { CloseAllPanels; ConMenuPnl.Visible = True; SectionPnl4.Height = 250; } 

}

void LoopBtnClick;  

{ 

  if (LoopMenuPnl.Visible) { LoopMenuPnl.Visible = False; SectionPnl5.Height = 50; } 

  else { CloseAllPanels; LoopMenuPnl.Visible = True; SectionPnl5.Height = 350; } 

}

void ArrBtnClick;   

{ 

  if (ArrMenuPnl.Visible) { ArrMenuPnl.Visible = False; SectionPnl6.Height = 50; } 

  else { CloseAllPanels; ArrMenuPnl.Visible = True; SectionPnl6.Height = 200; } 

}

void VoidBtnClick;  

{ 

  if (VoidMenuPnl.Visible) { VoidMenuPnl.Visible = False; SectionPnl7.Height = 50; } 

  else { CloseAllPanels; VoidMenuPnl.Visible = True; SectionPnl7.Height = 350; } 

}

void TryBtnClick;   

{ 

  if (TryMenuPnl.Visible) { TryMenuPnl.Visible = False; SectionPnl8.Height = 50; } 

  else { CloseAllPanels; TryMenuPnl.Visible = True; SectionPnl8.Height = 250; } 

}

void FormBtnClick;  

{ 

  if (FormMenuPnl.Visible) { FormMenuPnl.Visible = False; SectionPnl9.Height = 50; } 

  else { CloseAllPanels; FormMenuPnl.Visible = True; SectionPnl9.Height = 250; } 

}

void CompBtnClick;  

{ 

  if (CompMenuPnl.Visible) { CompMenuPnl.Visible = False; SectionPnl10.Height = 50; } 

  else { CloseAllPanels; CompMenuPnl.Visible = True; SectionPnl10.Height = 300; } 

}

void EventBtnClick; 

{ 

  if (EventMenuPnl.Visible) { EventMenuPnl.Visible = False; SectionPnl11.Height = 50; } 

  else { CloseAllPanels; EventMenuPnl.Visible = True; SectionPnl11.Height = 250; } 

}

// --- ANA TASARIM BLOĞU ---

{

  MyForm = TclForm.Create(Self);

  

  MyForm.AddAssetFromUrl('https://github.com/cayesrabetul-pixel/CloStepp.git'); 

  

  MyForm.SetFormColor('#F8FAFC', '', clGNone);

  MainScrollBox = MyForm.AddNewVertScrollBox(MyForm, 'MainScrollBox');

  MainScrollBox.Align = alClient;

  // --- 1. PRINT ---

  SectionPnl1 = MyForm.AddNewProPanel(MainScrollBox, 'SectionPnl1');

  SectionPnl1.Align = alTop; SectionPnl1.Height = 50; SectionPnl1.Margins.Top = 10;

  PrintMainBtn = MyForm.AddNewProButton(SectionPnl1, 'PrintMainBtn', '1. Print İşlemleri ▾');

  PrintMainBtn.Align = alTop; PrintMainBtn.Height = 50;

  PrintMainBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB');

  PrintMainBtn.clProSettings.FontColor = clAlphaColor.clWhite;

  PrintMainBtn.SetclProSettings(PrintMainBtn.clProSettings);

  MyForm.AddNewEvent(PrintMainBtn, tbeOnClick, 'PrintBtnClick');

  

  PrintMenuPnl = MyForm.AddNewProPanel(SectionPnl1, 'PrintMenuPnl');

  PrintMenuPnl.Align = alTop; PrintMenuPnl.Height = 150; PrintMenuPnl.Visible = False;

  BtnPrintA = MyForm.AddNewProButton(PrintMenuPnl, 'BtnPrintA', 'A) ShowMessage Nedir?');

  BtnPrintA.Align = alTop; BtnPrintA.Height = 50; MyForm.AddNewEvent(BtnPrintA, tbeOnClick, 'OptionClicked');

  BtnPrintB = MyForm.AddNewProButton(PrintMenuPnl, 'BtnPrintB', 'B) Pekiştirme');

  BtnPrintB.Align = alTop; BtnPrintB.Height = 50; MyForm.AddNewEvent(BtnPrintB, tbeOnClick, 'OptionClicked');

  BtnPrintC = MyForm.AddNewProButton(PrintMenuPnl, 'BtnPrintC', 'C) Quiz');

  BtnPrintC.Align = alTop; BtnPrintC.Height = 50; MyForm.AddNewEvent(BtnPrintC, tbeOnClick, 'OptionClicked');

  // --- 2. DEĞİŞKENLER ---

  SectionPnl2 = MyForm.AddNewProPanel(MainScrollBox, 'SectionPnl2');

  SectionPnl2.Align = alTop; SectionPnl2.Height = 50; SectionPnl2.Margins.Top = 10;

  VarMainBtn = MyForm.AddNewProButton(SectionPnl2, 'VarMainBtn', '2. Değişkenler ve Veri Türleri ▾');

  VarMainBtn.Align = alTop; VarMainBtn.Height = 50;

  VarMainBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB');

  VarMainBtn.clProSettings.FontColor = clAlphaColor.clWhite;

  VarMainBtn.SetclProSettings(VarMainBtn.clProSettings);

  MyForm.AddNewEvent(VarMainBtn, tbeOnClick, 'VarBtnClick');

  

  VarMenuPnl = MyForm.AddNewProPanel(SectionPnl2, 'VarMenuPnl');

  VarMenuPnl.Align = alTop; VarMenuPnl.Height = 250; VarMenuPnl.Visible = False;

  BtnVarA = MyForm.AddNewProButton(VarMenuPnl, 'BtnVarA', 'A) Değişken Nedir?');

  BtnVarA.Align = alTop; BtnVarA.Height = 50; MyForm.AddNewEvent(BtnVarA, tbeOnClick, 'OptionClicked');

  BtnVarB = MyForm.AddNewProButton(VarMenuPnl, 'BtnVarB', 'B) Veri Türleri Nedir?');

  BtnVarB.Align = alTop; BtnVarB.Height = 50; MyForm.AddNewEvent(BtnVarB, tbeOnClick, 'OptionClicked');

  BtnVarC = MyForm.AddNewProButton(VarMenuPnl, 'BtnVarC', 'C) Tip Dönüşümleri');

  BtnVarC.Align = alTop; BtnVarC.Height = 50; MyForm.AddNewEvent(BtnVarC, tbeOnClick, 'OptionClicked');

  BtnVarD = MyForm.AddNewProButton(VarMenuPnl, 'BtnVarD', 'D) Pekiştirme');

  BtnVarD.Align = alTop; BtnVarD.Height = 50; MyForm.AddNewEvent(BtnVarD, tbeOnClick, 'OptionClicked');

  BtnVarE = MyForm.AddNewProButton(VarMenuPnl, 'BtnVarE', 'E) Quiz');

  BtnVarE.Align = alTop; BtnVarE.Height = 50; MyForm.AddNewEvent(BtnVarE, tbeOnClick, 'OptionClicked');

  // --- 3. OPERATÖRLER ---

  SectionPnl3 = MyForm.AddNewProPanel(MainScrollBox, 'SectionPnl3');

  SectionPnl3.Align = alTop; SectionPnl3.Height = 50; SectionPnl3.Margins.Top = 10;

  OpMainBtn = MyForm.AddNewProButton(SectionPnl3, 'OpMainBtn', '3. Operatörler ▾');

  OpMainBtn.Align = alTop; OpMainBtn.Height = 50;

  OpMainBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB');

  OpMainBtn.clProSettings.FontColor = clAlphaColor.clWhite;

  OpMainBtn.SetclProSettings(OpMainBtn.clProSettings);

  MyForm.AddNewEvent(OpMainBtn, tbeOnClick, 'OpBtnClick');

  

  OpMenuPnl = MyForm.AddNewProPanel(SectionPnl3, 'OpMenuPnl');

  OpMenuPnl.Align = alTop; OpMenuPnl.Height = 150; OpMenuPnl.Visible = False;

  BtnOp1 = MyForm.AddNewProButton(OpMenuPnl, 'BtnOp1', '1) Operatör Türleri');

  BtnOp1.Align = alTop; BtnOp1.Height = 50; MyForm.AddNewEvent(BtnOp1, tbeOnClick, 'OptionClicked');

  BtnOp2 = MyForm.AddNewProButton(OpMenuPnl, 'BtnOp2', '2) Pekiştirme');

  BtnOp2.Align = alTop; BtnOp2.Height = 50; MyForm.AddNewEvent(BtnOp2, tbeOnClick, 'OptionClicked');

  BtnOp3 = MyForm.AddNewProButton(OpMenuPnl, 'BtnOp3', '3) Quiz');

  BtnOp3.Align = alTop; BtnOp3.Height = 50; MyForm.AddNewEvent(BtnOp3, tbeOnClick, 'OptionClicked');

  // --- 4. KOŞULLAR ---

  SectionPnl4 = MyForm.AddNewProPanel(MainScrollBox, 'SectionPnl4');

  SectionPnl4.Align = alTop; SectionPnl4.Height = 50; SectionPnl4.Margins.Top = 10;

  ConMainBtn = MyForm.AddNewProButton(SectionPnl4, 'ConMainBtn', '4. Koşullar ▾');

  ConMainBtn.Align = alTop; ConMainBtn.Height = 50;

  ConMainBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB');

  ConMainBtn.clProSettings.FontColor = clAlphaColor.clWhite;

  ConMainBtn.SetclProSettings(ConMainBtn.clProSettings);

  MyForm.AddNewEvent(ConMainBtn, tbeOnClick, 'ConBtnClick');

  

  ConMenuPnl = MyForm.AddNewProPanel(SectionPnl4, 'ConMenuPnl');

  ConMenuPnl.Align = alTop; ConMenuPnl.Height = 200; ConMenuPnl.Visible = False;

  BtnCon1 = MyForm.AddNewProButton(ConMenuPnl, 'BtnCon1', '1) If-Else Nedir?');

  BtnCon1.Align = alTop; BtnCon1.Height = 50; MyForm.AddNewEvent(BtnCon1, tbeOnClick, 'OptionClicked');

  BtnCon2 = MyForm.AddNewProButton(ConMenuPnl, 'BtnCon2', '2) Case Nedir');

  BtnCon2.Align = alTop; BtnCon2.Height = 50; MyForm.AddNewEvent(BtnCon2, tbeOnClick, 'OptionClicked');

  BtnCon3 = MyForm.AddNewProButton(ConMenuPnl, 'BtnCon3', '3) Pekiştirme');

  BtnCon3.Align = alTop; BtnCon3.Height = 50; MyForm.AddNewEvent(BtnCon3, tbeOnClick, 'OptionClicked');

  BtnCon4 = MyForm.AddNewProButton(ConMenuPnl, 'BtnCon4', '4) Quiz');

  BtnCon4.Align = alTop; BtnCon4.Height = 50; MyForm.AddNewEvent(BtnCon4, tbeOnClick, 'OptionClicked');

  // --- 5. DÖNGÜLER ---

  SectionPnl5 = MyForm.AddNewProPanel(MainScrollBox, 'SectionPnl5');

  SectionPnl5.Align = alTop; SectionPnl5.Height = 50; SectionPnl5.Margins.Top = 10;

  LoopMainBtn = MyForm.AddNewProButton(SectionPnl5, 'LoopMainBtn', '5. Döngüler ▾');

  LoopMainBtn.Align = alTop; LoopMainBtn.Height = 50;

  LoopMainBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB');

  LoopMainBtn.clProSettings.FontColor = clAlphaColor.clWhite;

  LoopMainBtn.SetclProSettings(LoopMainBtn.clProSettings);

  MyForm.AddNewEvent(LoopMainBtn, tbeOnClick, 'LoopBtnClick');

  

  LoopMenuPnl = MyForm.AddNewProPanel(SectionPnl5, 'LoopMenuPnl');

  LoopMenuPnl.Align = alTop; LoopMenuPnl.Height = 300; LoopMenuPnl.Visible = False;

  BtnL1 = MyForm.AddNewProButton(LoopMenuPnl, 'BtnL1', '1) While Nedir?');

  BtnL1.Align = alTop; BtnL1.Height = 50; MyForm.AddNewEvent(BtnL1, tbeOnClick, 'OptionClicked');

  BtnL2 = MyForm.AddNewProButton(LoopMenuPnl, 'BtnL2', '2) Repeat-Until Nedir?');

  BtnL2.Align = alTop; BtnL2.Height = 50; MyForm.AddNewEvent(BtnL2, tbeOnClick, 'OptionClicked');

  BtnL3 = MyForm.AddNewProButton(LoopMenuPnl, 'BtnL3', '3) For Nedir?');

  BtnL3.Align = alTop; BtnL3.Height = 50; MyForm.AddNewEvent(BtnL3, tbeOnClick, 'OptionClicked');

  BtnL4 = MyForm.AddNewProButton(LoopMenuPnl, 'BtnL4', '4) Döngü Yönlendirme İfadeleri?');

  BtnL4.Align = alTop; BtnL4.Height = 50; MyForm.AddNewEvent(BtnL4, tbeOnClick, 'OptionClicked');

  BtnL5 = MyForm.AddNewProButton(LoopMenuPnl, 'BtnL5', '5) Pekiştirme');

  BtnL5.Align = alTop; BtnL5.Height = 50; MyForm.AddNewEvent(BtnL5, tbeOnClick, 'OptionClicked');

  BtnL6 = MyForm.AddNewProButton(LoopMenuPnl, 'BtnL6', '6) Quiz');

  BtnL6.Align = alTop; BtnL6.Height = 50; MyForm.AddNewEvent(BtnL6, tbeOnClick, 'OptionClicked');

  // --- 6. DİZİLER ---

  SectionPnl6 = MyForm.AddNewProPanel(MainScrollBox, 'SectionPnl6');

  SectionPnl6.Align = alTop; SectionPnl6.Height = 50; SectionPnl6.Margins.Top = 10;

  ArrMainBtn = MyForm.AddNewProButton(SectionPnl6, 'ArrMainBtn', '6. Diziler ▾');

  ArrMainBtn.Align = alTop; ArrMainBtn.Height = 50;

  ArrMainBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB');

  ArrMainBtn.clProSettings.FontColor = clAlphaColor.clWhite;

  ArrMainBtn.SetclProSettings(ArrMainBtn.clProSettings);

  MyForm.AddNewEvent(ArrMainBtn, tbeOnClick, 'ArrBtnClick');

  

  ArrMenuPnl = MyForm.AddNewProPanel(SectionPnl6, 'ArrMenuPnl');

  ArrMenuPnl.Align = alTop; ArrMenuPnl.Height = 150; ArrMenuPnl.Visible = False;

  BtnArr1 = MyForm.AddNewProButton(ArrMenuPnl, 'BtnArr1', '1) Diziler Nedir?');

  BtnArr1.Align = alTop; BtnArr1.Height = 50; MyForm.AddNewEvent(BtnArr1, tbeOnClick, 'OptionClicked');

  BtnArr2 = MyForm.AddNewProButton(ArrMenuPnl, 'BtnArr2', '2) Pekiştirme');

  BtnArr2.Align = alTop; BtnArr2.Height = 50; MyForm.AddNewEvent(BtnArr2, tbeOnClick, 'OptionClicked');

  BtnArr3 = MyForm.AddNewProButton(ArrMenuPnl, 'BtnArr3', '3) Quiz');

  BtnArr3.Align = alTop; BtnArr3.Height = 50; MyForm.AddNewEvent(BtnArr3, tbeOnClick, 'OptionClicked');

  // --- 7. VOID ---

  SectionPnl7 = MyForm.AddNewProPanel(MainScrollBox, 'SectionPnl7');

  SectionPnl7.Align = alTop; SectionPnl7.Height = 50; SectionPnl7.Margins.Top = 10;

  VoidMainBtn = MyForm.AddNewProButton(SectionPnl7, 'VoidMainBtn', '7. Void(Prosedür) ▾');

  VoidMainBtn.Align = alTop; VoidMainBtn.Height = 50;

  VoidMainBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB');

  VoidMainBtn.clProSettings.FontColor = clAlphaColor.clWhite;

  VoidMainBtn.SetclProSettings(VoidMainBtn.clProSettings);

  MyForm.AddNewEvent(VoidMainBtn, tbeOnClick, 'VoidBtnClick');

  

  VoidMenuPnl = MyForm.AddNewProPanel(SectionPnl7, 'VoidMenuPnl');

  VoidMenuPnl.Align = alTop; VoidMenuPnl.Height = 300; VoidMenuPnl.Visible = False;

  BtnV1 = MyForm.AddNewProButton(VoidMenuPnl, 'BtnV1', '1) Parametreli Prosedür?');

  BtnV1.Align = alTop; BtnV1.Height = 50; MyForm.AddNewEvent(BtnV1, tbeOnClick, 'OptionClicked');

  BtnV2 = MyForm.AddNewProButton(VoidMenuPnl, 'BtnV2', '2) Parametresiz Prosedür?');

  BtnV2.Align = alTop; BtnV2.Height = 50; MyForm.AddNewEvent(BtnV2, tbeOnClick, 'OptionClicked');

  BtnV3 = MyForm.AddNewProButton(VoidMenuPnl, 'BtnV3', '3) Fonksiyon Nedir?');

  BtnV3.Align = alTop; BtnV3.Height = 50; MyForm.AddNewEvent(BtnV3, tbeOnClick, 'OptionClicked');

  BtnV4 = MyForm.AddNewProButton(VoidMenuPnl, 'BtnV4', '4) Hazır Kütüphaneler?');

  BtnV4.Align = alTop; BtnV4.Height = 50; MyForm.AddNewEvent(BtnV4, tbeOnClick, 'OptionClicked');

  BtnV5 = MyForm.AddNewProButton(VoidMenuPnl, 'BtnV5', '5) Pekiştirme');

  BtnV5.Align = alTop; BtnV5.Height = 50; MyForm.AddNewEvent(BtnV5, tbeOnClick, 'OptionClicked');

  BtnV6 = MyForm.AddNewProButton(VoidMenuPnl, 'BtnV6', '6) Quiz');

  BtnV6.Align = alTop; BtnV6.Height = 50; MyForm.AddNewEvent(BtnV6, tbeOnClick, 'OptionClicked');

  // --- 8. TRY ---

  SectionPnl8 = MyForm.AddNewProPanel(MainScrollBox, 'SectionPnl8');

  SectionPnl8.Align = alTop; SectionPnl8.Height = 50; SectionPnl8.Margins.Top = 10;

  TryMainBtn = MyForm.AddNewProButton(SectionPnl8, 'TryMainBtn', '8. Hata Yakalama ▾');

  TryMainBtn.Align = alTop; TryMainBtn.Height = 50;

  TryMainBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB');

  TryMainBtn.clProSettings.FontColor = clAlphaColor.clWhite;

  TryMainBtn.SetclProSettings(TryMainBtn.clProSettings);

  MyForm.AddNewEvent(TryMainBtn, tbeOnClick, 'TryBtnClick');

  

  TryMenuPnl = MyForm.AddNewProPanel(SectionPnl8, 'TryMenuPnl');

  TryMenuPnl.Align = alTop; TryMenuPnl.Height = 200; TryMenuPnl.Visible = False;

  BtnTry1 = MyForm.AddNewProButton(TryMenuPnl, 'BtnTry1', '1) Try-Except Nedir?');

  BtnTry1.Align = alTop; BtnTry1.Height = 50; MyForm.AddNewEvent(BtnTry1, tbeOnClick, 'OptionClicked');

  BtnTry2 = MyForm.AddNewProButton(TryMenuPnl, 'BtnTry2', '2) Try-Finally Nedir?');

  BtnTry2.Align = alTop; BtnTry2.Height = 50; MyForm.AddNewEvent(BtnTry2, tbeOnClick, 'OptionClicked');

  BtnTry3 = MyForm.AddNewProButton(TryMenuPnl, 'BtnTry3', '3) Pekiştirme');

  BtnTry3.Align = alTop; BtnTry3.Height = 50; MyForm.AddNewEvent(BtnTry3, tbeOnClick, 'OptionClicked');

  BtnTry4 = MyForm.AddNewProButton(TryMenuPnl, 'BtnTry4', '4) Quiz');

  BtnTry4.Align = alTop; BtnTry4.Height = 50; MyForm.AddNewEvent(BtnTry4, tbeOnClick, 'OptionClicked');

  // --- 9. FORM ---

  SectionPnl9 = MyForm.AddNewProPanel(MainScrollBox, 'SectionPnl9');

  SectionPnl9.Align = alTop; SectionPnl9.Height = 50; SectionPnl9.Margins.Top = 10;

  FormMainBtn = MyForm.AddNewProButton(SectionPnl9, 'FormMainBtn', '9. Form İşlemleri ▾');

  FormMainBtn.Align = alTop; FormMainBtn.Height = 50;

  FormMainBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB');

  FormMainBtn.clProSettings.FontColor = clAlphaColor.clWhite;

  FormMainBtn.SetclProSettings(FormMainBtn.clProSettings);

  MyForm.AddNewEvent(FormMainBtn, tbeOnClick, 'FormBtnClick');

  

  FormMenuPnl = MyForm.AddNewProPanel(SectionPnl9, 'FormMenuPnl');

  FormMenuPnl.Align = alTop; FormMenuPnl.Height = 200; FormMenuPnl.Visible = False;

  BtnForm1 = MyForm.AddNewProButton(FormMenuPnl, 'BtnForm1', '1) Form Nedir?');

  BtnForm1.Align = alTop; BtnForm1.Height = 50; MyForm.AddNewEvent(BtnForm1, tbeOnClick, 'OptionClicked');

  BtnForm2 = MyForm.AddNewProButton(FormMenuPnl, 'BtnForm2', '2) Form Özellikleri');

  BtnForm2.Align = alTop; BtnForm2.Height = 50; MyForm.AddNewEvent(BtnForm2, tbeOnClick, 'OptionClicked');

  BtnForm3 = MyForm.AddNewProButton(FormMenuPnl, 'BtnForm3', '3) Pekiştirme');

  BtnForm3.Align = alTop; BtnForm3.Height = 50; MyForm.AddNewEvent(BtnForm3, tbeOnClick, 'OptionClicked');

  BtnForm4 = MyForm.AddNewProButton(FormMenuPnl, 'BtnForm4', '4) Quiz');

  BtnForm4.Align = alTop; BtnForm4.Height = 50; MyForm.AddNewEvent(BtnForm4, tbeOnClick, 'OptionClicked');

  // --- 10. BİLEŞENLER ---

  SectionPnl10 = MyForm.AddNewProPanel(MainScrollBox, 'SectionPnl10');

  SectionPnl10.Align = alTop; SectionPnl10.Height = 50; SectionPnl10.Margins.Top = 10;

  CompMainBtn = MyForm.AddNewProButton(SectionPnl10, 'CompMainBtn', '10. Bileşenler ▾');

  CompMainBtn.Align = alTop; CompMainBtn.Height = 50;

  CompMainBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB');

  CompMainBtn.clProSettings.FontColor = clAlphaColor.clWhite;

  CompMainBtn.SetclProSettings(CompMainBtn.clProSettings);

  MyForm.AddNewEvent(CompMainBtn, tbeOnClick, 'CompBtnClick');

  

  CompMenuPnl = MyForm.AddNewProPanel(SectionPnl10, 'CompMenuPnl');

  CompMenuPnl.Align = alTop; CompMenuPnl.Height = 250; CompMenuPnl.Visible = False;

  BtnComp1 = MyForm.AddNewProButton(CompMenuPnl, 'BtnComp1', '1) Çeşitler Nelerdir?');

  BtnComp1.Align = alTop; BtnComp1.Height = 50; MyForm.AddNewEvent(BtnComp1, tbeOnClick, 'OptionClicked');

  BtnComp2 = MyForm.AddNewProButton(CompMenuPnl, 'BtnComp2', '2) Ortak Özellikler?');

  BtnComp2.Align = alTop; BtnComp2.Height = 50; MyForm.AddNewEvent(BtnComp2, tbeOnClick, 'OptionClicked');

  BtnComp3 = MyForm.AddNewProButton(CompMenuPnl, 'BtnComp3', '3) Temel Özellikler?');

  BtnComp3.Align = alTop; BtnComp3.Height = 50; MyForm.AddNewEvent(BtnComp3, tbeOnClick, 'OptionClicked');

  BtnComp4 = MyForm.AddNewProButton(CompMenuPnl, 'BtnComp4', '4) Pekiştirme');

  BtnComp4.Align = alTop; BtnComp4.Height = 50; MyForm.AddNewEvent(BtnComp4, tbeOnClick, 'OptionClicked');

  BtnComp5 = MyForm.AddNewProButton(CompMenuPnl, 'BtnComp5', '5) Quiz');

  BtnComp5.Align = alTop; BtnComp5.Height = 50; MyForm.AddNewEvent(BtnComp5, tbeOnClick, 'OptionClicked');

  // --- 11. EVENTS ---

  SectionPnl11 = MyForm.AddNewProPanel(MainScrollBox, 'SectionPnl11');

  SectionPnl11.Align = alTop; SectionPnl11.Height = 50; SectionPnl11.Margins.Top = 10;

  EventMainBtn = MyForm.AddNewProButton(SectionPnl11, 'EventMainBtn', '11. Olaylar (Events) ▾');

  EventMainBtn.Align = alTop; EventMainBtn.Height = 50;

  EventMainBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB');

  EventMainBtn.clProSettings.FontColor = clAlphaColor.clWhite;

  EventMainBtn.SetclProSettings(EventMainBtn.clProSettings);

  MyForm.AddNewEvent(EventMainBtn, tbeOnClick, 'EventBtnClick');

  

  EventMenuPnl = MyForm.AddNewProPanel(SectionPnl11, 'EventMenuPnl');

  EventMenuPnl.Align = alTop; EventMenuPnl.Height = 200; EventMenuPnl.Visible = False;

  BtnEv1 = MyForm.AddNewProButton(EventMenuPnl, 'BtnEv1', '1) Events Nedir?');

  BtnEv1.Align = alTop; BtnEv1.Height = 50; MyForm.AddNewEvent(BtnEv1, tbeOnClick, 'OptionClicked');

  BtnEv2 = MyForm.AddNewProButton(EventMenuPnl, 'BtnEv2', '2) Çeşitleri Nedir?');

  BtnEv2.Align = alTop; BtnEv2.Height = 50; MyForm.AddNewEvent(BtnEv2, tbeOnClick, 'OptionClicked');

  BtnEv3 = MyForm.AddNewProButton(EventMenuPnl, 'BtnEv3', '3) Pekiştirme');

  BtnEv3.Align = alTop; BtnEv3.Height = 50; MyForm.AddNewEvent(BtnEv3, tbeOnClick, 'OptionClicked');

  BtnEv4 = MyForm.AddNewProButton(EventMenuPnl, 'BtnEv4', '4) Quiz');

  BtnEv4.Align = alTop; BtnEv4.Height = 50; MyForm.AddNewEvent(BtnEv4, tbeOnClick, 'OptionClicked');

  MyForm.Run;

}