var

  Formum: TclForm;

  AdGiris, BoyGiris, KiloGiris: TclProEdit;

  SonucYazi, OneriYazi, HareketBilgiYazi, hareketBaslik, bolgeBaslik, baslikLabel: TclProLabel;

  HesaplaButton, resimlinkButton: TclProButton;

  AnaAlan, BilgiAlan, ButtonAlan, SonucAlani, OneriAlani, HareketAlani, BolgeAlan, TakvimAlani, bolgeButtonPanel: TclProPanel;

  HareketResim: TclProImage;

  

  KolButton, SirtButton, BacakButton : TclProButton;

  

  KOL_Btn, SIRT_Btn, BACAK_Btn: TclProButton;

  

  KolResim, SirtResim, BacakResim, setImage: TclProImage;

  TakvimEtiketi: TclProLabel;

  ad: String;

  boy, kilo, vki: Float;

  durum, secilenBolge: String;

  bugunTarihi: String;

void HesaplaButtonTikla

{

  if ((AdGiris.Text == '') || (BoyGiris.Text == '') || (KiloGiris.Text == '')) {

    ShowMessage('Lütfen tüm alanları doldurunuz.');

  } else {

    ad = AdGiris.Text;

    boy = StrToFloat(BoyGiris.Text) / 100;

    kilo = StrToFloat(KiloGiris.Text);

    vki = kilo / (boy * boy);

    vki = Round(vki * 10) / 10;

    if (vki < 18.5) {

      durum = 'Zayıf - Direnç antrenmanları yapabilirsiniz.';

    } else if (vki < 25) {

      durum = 'Normal - Haftada 3-4 gün kardiyo ve güç antrenmanı önerilir.';

    } else if (vki < 30) {

      durum = 'Fazla kilolu - Düzenli yürüyüş ve hafif kardiyo yapmalısınız.';

    } else {

      durum = 'Obez - Uzman kontrolünde düşük etkili egzersiz yapınız.';

    }

    SonucYazi.Text = 'Merhaba ' + ad + ', VKİ: ' + FloatToStr(vki);

    OneriYazi.Text = durum;

    HareketBilgiYazi.Text = '';

    bugunTarihi = DateToStr(Date());

    TakvimEtiketi.Text = 'Bugünkü kayıt: ' + bugunTarihi + ' | VKİ: ' + FloatToStr(vki);

  }

}

void KolButtonTikla

{

  secilenBolge = 'Kol';

  Clomosy.RunUnit ('uKOL');

}

void SirtButtonTikla

{

  secilenBolge = 'Sırt';

  Clomosy.RunUnit ('uSIRT');

}

void BacakButtonTikla

{

  Clomosy.RunUnit ('uBACAK');

  secilenBolge = 'Bacak';

}

{

  Formum = TclForm.Create(Self);

  Formum.SetFormColor('#f5f5f5', 'color2', clGNone);

  Formum.AddAssetFromUrl(' https://github.com/ozkkyra167-hue/Clomosy_Application/blob/f05f12969a4d4b9833172de9e0cd5c2e1cb2741e/WhatsApp%20Image%202025-09-02%20at%2016.44.15.jpeg" rel="nofollow - https://github.com/ozkkyra167-hue/Clomosy_Application/blob/f05f12969a4d4b9833172de9e0cd5c2e1cb2741e/WhatsApp%20Image%202025-09-02%20at%2016.44.15.jpeg ');

  Formum.AddAssetFromUrl(' https://github.com/ozkkyra167-hue/Clomosy_Application/blob/f05f12969a4d4b9833172de9e0cd5c2e1cb2741e/WhatsApp%20Image%202025-09-02%20at%2016.44.15.jpeg" rel="nofollow - https://github.com/ozkkyra167-hue/Clomosy_Application/blob/f05f12969a4d4b9833172de9e0cd5c2e1cb2741e/WhatsApp%20Image%202025-09-02%20at%2016.44.15.jpeg ');

  Formum.SetFormBGImage(' https://resmim.net/cdn/2025/09/24/jgLpZT.jpg" rel="nofollow - https://resmim.net/cdn/2025/09/24/jgLpZT.jpg ');

  

  // Ana Alan - Mobile uyumlu spacing

  AnaAlan = Formum.AddNewProPanel(Formum, 'AnaAlan');

  AnaAlan.Align = alClient;

  AnaAlan.Margins.Top = 15;

  AnaAlan.Margins.Bottom = 20;

  AnaAlan.Margins.Left = 15;

  AnaAlan.Margins.Right = 15;

  // Bilgi Giriş Alanı - Daha büyük ve kullanıcı dostu

  BilgiAlan = Formum.AddNewProPanel(AnaAlan, 'BilgiAlan');

  BilgiAlan.Align = alTop;

  BilgiAlan.Height = 180;

  BilgiAlan.Margins.Bottom = 20;

  // Başlık

  baslikLabel = Formum.AddNewProLabel(BilgiAlan, 'baslikLabel', 'VKİ Hesaplayıcı');

  baslikLabel.Align = alTop;

  baslikLabel.Height = 40;

  baslikLabel.clProSettings.FontSize = 20;

  baslikLabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

  baslikLabel.clProSettings.FontHorzAlign = palCenter;

  baslikLabel.clProSettings.TextSettings.Font.Style = [fsBold];

  baslikLabel.Margins.Bottom = 15;

  baslikLabel.SetclProSettings(baslikLabel.clProSettings);

  AdGiris = Formum.AddNewProEdit(BilgiAlan, 'AdGiris','Adınız');

  AdGiris.Align = alTop;

  AdGiris.Height = 35;

  AdGiris.Margins.Bottom = 10;

  AdGiris.clProSettings.FontSize = 16;

  AdGiris.SetclProSettings(AdGiris.clProSettings);

  BoyGiris = Formum.AddNewProEdit(BilgiAlan, 'BoyGiris','Boy (cm)');

  BoyGiris.Align = alTop;

  BoyGiris.clTypeOfField = taFloat;

  BoyGiris.Height = 35;

  BoyGiris.Margins.Bottom = 10;

  BoyGiris.clProSettings.FontSize = 16;

  BoyGiris.SetclProSettings(BoyGiris.clProSettings);

  KiloGiris = Formum.AddNewProEdit(BilgiAlan, 'KiloGiris','Kilo (kg)');

  KiloGiris.Align = alTop;

  KiloGiris.clTypeOfField = taFloat;

  KiloGiris.Height = 35;

  KiloGiris.Margins.Bottom = 10;

  KiloGiris.clProSettings.FontSize = 16;

  KiloGiris.SetclProSettings(KiloGiris.clProSettings);

  // Hesapla Butonu - Modern tasarım

  ButtonAlan = Formum.AddNewProPanel(AnaAlan, 'ButtonAlan');

  ButtonAlan.Align = alTop;

  ButtonAlan.Height = 60;

  ButtonAlan.Margins.Bottom = 30;

  HesaplaButton = Formum.AddNewProButton(ButtonAlan, 'HesaplaButton', 'VKİ Hesapla');

  HesaplaButton.Align = alCenter;

  HesaplaButton.Width = 200;

  HesaplaButton.Height = 50;

  HesaplaButton.clProSettings.FontSize = 16;

  HesaplaButton.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

  HesaplaButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#4CAF50');

  HesaplaButton.clProSettings.IsRound = True;

  HesaplaButton.clProSettings.RoundHeight = 25;

  HesaplaButton.clProSettings.RoundWidth = 25;

  HesaplaButton.SetclProSettings(HesaplaButton.clProSettings);

  Formum.AddNewEvent(HesaplaButton, tbeOnClick, 'HesaplaButtonTikla');

  // Sonuç Alanı - Daha görsel

  SonucAlani = Formum.AddNewProPanel(AnaAlan, 'SonucAlani');

  SonucAlani.Align = alTop;

  SonucAlani.Height = 70;

  SonucAlani.Margins.Bottom = 15;

  SonucYazi = Formum.AddNewProLabel(SonucAlani, 'SonucYazi', '');

  SonucYazi.Align = alClient;

  SonucYazi.clProSettings.FontSize = 22;

  SonucYazi.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

  SonucYazi.clProSettings.FontHorzAlign = palCenter;

  SonucYazi.clProSettings.TextSettings.Font.Style = [fsBold];

  SonucYazi.Margins.Left = 15;

  SonucYazi.Margins.Right = 15;

  SonucYazi.SetclProSettings(SonucYazi.clProSettings);

  // Öneri Alanı

  OneriAlani = Formum.AddNewProPanel(AnaAlan, 'OneriAlani');

  OneriAlani.Align = alTop;

  OneriAlani.Height = 80;

  OneriAlani.Margins.Bottom = 30;

  OneriYazi = Formum.AddNewProLabel(OneriAlani, 'OneriYazi', '');

  OneriYazi.Align = alClient;

  OneriYazi.clProSettings.WordWrap = True;

  OneriYazi.clProSettings.FontSize = 15;

  OneriYazi.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

  OneriYazi.clProSettings.FontHorzAlign = palCenter;

  OneriYazi.Margins.Left = 15;

  OneriYazi.Margins.Right = 15;

  OneriYazi.SetclProSettings(OneriYazi.clProSettings);

  // Takvim Alanı

  TakvimAlani = Formum.AddNewProPanel(AnaAlan, 'TakvimAlani');

  TakvimAlani.Align = alTop;

  TakvimAlani.Height = 60;

  TakvimAlani.Margins.Bottom = 20;

  TakvimEtiketi = Formum.AddNewProLabel(TakvimAlani, 'TakvimEtiketi', 'Bugünkü kayıt: -');

  TakvimEtiketi.Align = alClient;

  TakvimEtiketi.clProSettings.FontSize = 13;

  TakvimEtiketi.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

  TakvimEtiketi.clProSettings.FontHorzAlign = palCenter;

  TakvimEtiketi.clProSettings.TextSettings.Font.Style = [fsBold];

  TakvimEtiketi.Margins.Left = 15;

  TakvimEtiketi.Margins.Right = 15;

  TakvimEtiketi.SetclProSettings(TakvimEtiketi.clProSettings);

  // Bölge Seçim Alanı - Modern ProButton'lar ile

  BolgeAlan = Formum.AddNewProPanel(AnaAlan, 'BolgeAlan');

  BolgeAlan.Align = alTop;

  BolgeAlan.Height = 120;

  BolgeAlan.Margins.Bottom = 30;

  // Bölge başlığı

  bolgeBaslik = Formum.AddNewProLabel(BolgeAlan, 'bolgeBaslik', 'Antrenman Bölgesi Seçin');

  bolgeBaslik.Align = alTop;

  bolgeBaslik.Height = 30;

  bolgeBaslik.clProSettings.FontSize = 16;

  bolgeBaslik.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

  bolgeBaslik.clProSettings.FontHorzAlign = palCenter;

  bolgeBaslik.clProSettings.TextSettings.Font.Style = [fsBold];

  bolgeBaslik.Margins.Bottom = 10;

  bolgeBaslik.SetclProSettings(bolgeBaslik.clProSettings);

  // Bölge butonları - Horizontal düzen

  bolgeButtonPanel = Formum.AddNewProPanel(BolgeAlan, 'bolgeButtonPanel');

  bolgeButtonPanel.Align = alClient;

  bolgeButtonPanel.Margins.Left = 20;

  bolgeButtonPanel.Margins.Right = 20;

  // Kol Butonu

  KOL_Btn = Formum.AddNewProButton(bolgeButtonPanel, 'KOL_Btn', '');

  KOL_Btn.Align = alLeft;

  KOL_Btn.Width = 80;

  KOL_Btn.Height = 70;

  KOL_Btn.Margins.Right = 15;

  KOL_Btn.clProSettings.BorderColor = clAlphaColor.clHexToColor('#e74c3c');

  KOL_Btn.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

  KOL_Btn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffffff');

  KOL_Btn.clProSettings.RoundHeight = 12;

  KOL_Btn.clProSettings.RoundWidth = 12;

  KOL_Btn.clProSettings.BorderWidth = 2;

  KOL_Btn.SetclProSettings(KOL_Btn.clProSettings);

  Formum.SetImage(KOL_Btn, ' https://r.resimlink.com/xLAKF5tZ.jpg" rel="nofollow - https://r.resimlink.com/xLAKF5tZ.jpg ');

  Formum.AddNewEvent(KOL_Btn, tbeOnClick, 'KolButtonTikla');

  // Sırt Butonu

  SIRT_Btn = Formum.AddNewProButton(bolgeButtonPanel, 'SIRT_Btn', '');

  SIRT_Btn.Align = alLeft;

  SIRT_Btn.Width = 80;

  SIRT_Btn.Height = 70;

  SIRT_Btn.Margins.Right = 15;

  SIRT_Btn.clProSettings.BorderColor = clAlphaColor.clHexToColor('#3498db');

  SIRT_Btn.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

  SIRT_Btn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffffff');

  SIRT_Btn.clProSettings.RoundHeight = 12;

  SIRT_Btn.clProSettings.RoundWidth = 12;

  SIRT_Btn.clProSettings.BorderWidth = 2;

  SIRT_Btn.SetclProSettings(SIRT_Btn.clProSettings);

  Formum.SetImage(SIRT_Btn, ' https://r.resimlink.com/mH6DWJEr.jpg" rel="nofollow - https://r.resimlink.com/mH6DWJEr.jpg ');

  Formum.AddNewEvent(SIRT_Btn, tbeOnClick, 'SirtButtonTikla');

  // Bacak Butonu

  BACAK_Btn = Formum.AddNewProButton(bolgeButtonPanel, 'BACAK_Btn', '');

  BACAK_Btn.Align = alLeft;

  BACAK_Btn.Width = 80;

  BACAK_Btn.Height = 70;

  BACAK_Btn.clProSettings.BorderColor = clAlphaColor.clHexToColor('#27ae60');

  BACAK_Btn.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

  BACAK_Btn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffffff');

  BACAK_Btn.clProSettings.RoundHeight = 12;

  BACAK_Btn.clProSettings.RoundWidth = 12;

  BACAK_Btn.clProSettings.BorderWidth = 2;

  BACAK_Btn.SetclProSettings(BACAK_Btn.clProSettings);

  Formum.SetImage(BACAK_Btn, ' https://r.resimlink.com/rAgk5.png" rel="nofollow - https://r.resimlink.com/rAgk5.png ');

  Formum.AddNewEvent(BACAK_Btn, tbeOnClick, 'BacakButtonTikla');

  // Hareket Alanı - Scrollable

  HareketAlani = Formum.AddNewProPanel(AnaAlan, 'HareketAlani');

  HareketAlani.Align = alClient;

  HareketAlani.Margins.Top = 10;

  HareketAlani.Margins.Bottom = 10;

  

  // Hareket başlığı

  hareketBaslik = Formum.AddNewProLabel(HareketAlani, 'hareketBaslik', 'Antrenman Hareketleri');

  hareketBaslik.Align = alTop;

  hareketBaslik.Height = 35;

  hareketBaslik.clProSettings.FontSize = 16;

  hareketBaslik.clProSettings.FontColor = clAlphaColor.clHexToColor('#2c3e50');

  hareketBaslik.clProSettings.FontHorzAlign = palCenter;

  hareketBaslik.clProSettings.TextSettings.Font.Style = [fsBold];

  hareketBaslik.Margins.Bottom = 15;

  hareketBaslik.Margins.Left = 15;

  hareketBaslik.SetclProSettings(hareketBaslik.clProSettings);

  

  // Hareket bilgi alanı

  HareketBilgiYazi = Formum.AddNewProLabel(HareketAlani, 'HareketBilgiYazi', '');

  HareketBilgiYazi.Align = alTop;

  HareketBilgiYazi.Height = 80;

  HareketBilgiYazi.clProSettings.WordWrap = True;

  HareketBilgiYazi.clProSettings.FontSize = 14;

  HareketBilgiYazi.clProSettings.FontColor = clAlphaColor.clHexToColor('#2c3e50');

  HareketBilgiYazi.clProSettings.FontHorzAlign = palCenter;

  HareketBilgiYazi.Margins.Left = 15;

  HareketBilgiYazi.Margins.Right = 15;

  HareketBilgiYazi.Margins.Bottom = 15;

  HareketBilgiYazi.SetclProSettings(HareketBilgiYazi.clProSettings);

  Formum.Run;

}  SQL den bir tablo oluşturup entegre etmeye çalıştım ama başarılı olamadım şimdiden yardımlarınız için çok teşekkürler 

Clomosy.DBSQLServerConnect('SQL

Server','CloData','testClo','123456','DBClo',1433); şeklinde 
https://www.docs.clomosy.com/SQL_Server_Queries" rel="nofollow - https://www.docs.clomosy.com/SQL_Server_Queries incelediğin de daha iyi anlayacağını düşünüyorum.
İyi çalışmalar.