var

  MyForm : TCLForm;

  IsimEdit, BoyEdit, KiloEdit : TCLEdit;

  SonucLabel, OneriLabel, HareketAciklamaLabel : TCLLabel;

  HesaplaButton, SquatButton, PlankButton, JumpingJackButton, MekikButton, MountainClimberButton : TCLButton;

  AnaPanel, BilgiPanel, ButtonPanel, SonucPanel, OneriPanel, HareketPanel : TCLPanel;

  isim : String;

  boy, kilo, vki : Float;

  durum : String;

void HesaplaButtonTikla;

{

  if((IsimEdit.Text == '') || (BoyEdit.Text == '') || (KiloEdit.Text == ''))

  {

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

  }

  else

  {

    isim = IsimEdit.Text;

    boy = StrToFloat(BoyEdit.Text) / 100;

    kilo = StrToFloat(KiloEdit.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 - Öncelikle bir uzmana danışınız ve düşük etkili egzersizlere başlayınız.';

    SonucLabel.Text = 'Merhaba ' + isim + ', VKİ: ' + FloatToStr(vki);

    OneriLabel.Text = durum;

    HareketAciklamaLabel.Text = '';

  }

}

void SquatButtonTikla;

{

  HareketAciklamaLabel.Text = 'Squat:\nAyaklar omuz genişliğinde açık, dizleri bükerek oturur pozisyona gelin. 3 set, 15 tekrar.';

}

void PlankButtonTikla;

{

  HareketAciklamaLabel.Text = 'Plank:\nDirsekler ve ayak parmakları üzerinde vücut düz bir çizgide. 3 set, 30 saniye.';

}

void JumpingJackButtonTikla;

{

  HareketAciklamaLabel.Text = 'Jumping Jack:\nAyaklar ve kollar açılıp kapanır, kardiyo hareketi. 3 set, 20 tekrar.';

}

void MekikButtonTikla;

{

  HareketAciklamaLabel.Text = 'Mekik:\nSırt üstü yatın, dizler bükülü. Eller ensede, gövdeni yukarı kaldır. 3 set, 20 tekrar.';

}

void MountainClimberButtonTikla;

{

  HareketAciklamaLabel.Text = 'Mountain Climber:\nŞınav pozisyonunda, dizlerini sırayla karnına çek. 3 set, 30 tekrar.';

}

{

  MyForm = TCLForm.Create(Self);

  AnaPanel = MyForm.AddNewPanel(MyForm, 'AnaPanel');

  AnaPanel.Align = alClient;

  AnaPanel.Margins.Top = 20;

  AnaPanel.Margins.Bottom = 20;

  AnaPanel.Margins.Left = 20;

  AnaPanel.Margins.Right = 20;

  BilgiPanel = MyForm.AddNewPanel(AnaPanel, 'BilgiPanel');

  BilgiPanel.Align = alTop;

  BilgiPanel.Height = 150;

  IsimEdit = MyForm.AddNewEdit(BilgiPanel, 'IsimEdit', 'İsminiz...');

  IsimEdit.Align = alTop;

  IsimEdit.Height = 30;

  BoyEdit = MyForm.AddNewEdit(BilgiPanel, 'BoyEdit', 'Boy (cm)...');

  BoyEdit.Align = alTop;

  BoyEdit.clTypeOfField = taFloat;

  BoyEdit.Height = 30;

  KiloEdit = MyForm.AddNewEdit(BilgiPanel, 'KiloEdit', 'Kilo (kg)...');

  KiloEdit.Align = alTop;

  KiloEdit.clTypeOfField = taFloat;

  KiloEdit.Height = 30;

  ButtonPanel = MyForm.AddNewPanel(AnaPanel, 'ButtonPanel');

  ButtonPanel.Align = alTop;

  ButtonPanel.Height = 60;

  HesaplaButton = MyForm.AddNewButton(ButtonPanel, 'HesaplaButton', 'VKİ Hesapla');

  HesaplaButton.Align = alCenter;

  HesaplaButton.Width = 140;

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

  SonucPanel = MyForm.AddNewPanel(AnaPanel, 'SonucPanel');

  SonucPanel.Align = alTop;

  SonucPanel.Height = 60;

  SonucLabel = MyForm.AddNewLabel(SonucPanel, 'SonucLabel', 'Sonuç:');

  SonucLabel.Align = alClient;

  SonucLabel.TextSettings.Font.Size = 16;

  OneriPanel = MyForm.AddNewPanel(AnaPanel, 'OneriPanel');

  OneriPanel.Align = alTop;

  OneriPanel.Height = 80;

  OneriLabel = MyForm.AddNewLabel(OneriPanel, 'OneriLabel', '');

  OneriLabel.Align = alClient;

  OneriLabel.WordWrap = True;

  OneriLabel.TextSettings.Font.Size = 14;

  HareketPanel = MyForm.AddNewPanel(AnaPanel, 'HareketPanel');

  HareketPanel.Align = alClient;

  HareketPanel.Margins.Top = 10;

  SquatButton = MyForm.AddNewButton(HareketPanel, 'SquatButton', 'Squat');

  SquatButton.Align = alTop;

  SquatButton.Height = 40;

  MyForm.AddNewEvent(SquatButton, tbeOnClick, 'SquatButtonTikla');

  PlankButton = MyForm.AddNewButton(HareketPanel, 'PlankButton', 'Plank');

  PlankButton.Align = alTop;

  PlankButton.Height = 40;

  MyForm.AddNewEvent(PlankButton, tbeOnClick, 'PlankButtonTikla');

  JumpingJackButton = MyForm.AddNewButton(HareketPanel, 'JumpingJackButton', 'Jumping Jack');

  JumpingJackButton.Align = alTop;

  JumpingJackButton.Height = 40;

  MyForm.AddNewEvent(JumpingJackButton, tbeOnClick, 'JumpingJackButtonTikla');

  MekikButton = MyForm.AddNewButton(HareketPanel, 'MekikButton', 'Mekik');

  MekikButton.Align = alTop;

  MekikButton.Height = 40;

  MyForm.AddNewEvent(MekikButton, tbeOnClick, 'MekikButtonTikla');

  MountainClimberButton = MyForm.AddNewButton(HareketPanel, 'MountainClimberButton', 'Mountain Climber');

  MountainClimberButton.Align = alTop;

  MountainClimberButton.Height = 40;

  MyForm.AddNewEvent(MountainClimberButton, tbeOnClick, 'MountainClimberButtonTikla');

  HareketAciklamaLabel = MyForm.AddNewLabel(HareketPanel, 'HareketAciklamaLabel', '');

  HareketAciklamaLabel.Align = alClient;

  HareketAciklamaLabel.WordWrap = True;

  HareketAciklamaLabel.TextSettings.Font.Size = 14;

  HareketAciklamaLabel.Margins.Top = 10;

  MyForm.Run;

}

merhabalar yaptıgım spor uygulamasında spor hareketlerine basıldığında hareketin resim

eklemek istiyorum