var

  editBoy , editYas , editKilo , editBoyun , editBel , editKalca: TclEdit;

  buttonHesapla: TCLButton;

  labelSonuc: TCLLabel;

  comboboxCinsiyet : TCLComboBox;

  MyForm: TCLForm;

 

  boy , kilo , boyun , bel , kalca , yagOrani , d1 , d2 , toplam , terim , fark: Double;

  yas , i , k: Integer;

  cinsiyet: String;

 

 

  function log10(x: Double): Double;

  {

    if x <=0

    {

      Result= 0;

    }

    else

    {

    k = 0;

    while (x >= 2.0)

    {

      x = x / 2.0;

      k = k + 1;

    }

   

    d1 = (x - 1) / (x + 1);

    d2 = d1 * d1;

    toplam = 0;

    terim = d1;

    for i = 1 to 15

    {

    toplam = toplam + terim / (2 * i - 1);

    terim = terim * d2;

    }

    Result = (k * 0.30102999566) + ((2 * toplam) / 2.30258509299);

  }

 

  void yagOraniHesaplaIslemi;

  {

    boy = FloatToStr(editBoy.Text);

    boyun = FloatToStr(editBoyun.Text);

    bel = FloatToStr(editBel.Text);

    Kalca = FloatToStr(editKalca.Text);

    cinsiyet = comboboxCinsiyet.Text;

    //yas = FloatToStr(editYas.Text);

    //kilo = FloatToStr(editKilo.Text);

     

    if (cinsiyet=='Erkek')

      {

        if ((boy > 0) && (bel > 0) && (boyun > 0))

          {

            fark = bel - boyun;

            yagOrani = 86.010 * log10(fark) - 70.041 * log10(boy) + 36.76;

            ShowMessage(yagOrani);

          }

        else

          {

            ShowMessage('Lütfen Bütün Değerleri Doldurunuz');

          }

      }

   

    else

      {

        if ((boy > 0) && (bel > 0) && (boyun > 0) && (Kalca > 0))

          {

            fark = bel + kalca - boyun;

            yagOrani = 163.205 * log10(fark) - 97.684 * log10(boy) - 78.387;

            ShowMessage(yagOrani);

          }

        else

          {

            ShowMessage('Lütfen Bütün Değerleri Doldurunuz');

          }

      }

    ShowMessage('yagOrani hesaplandı');  

  }  

   

  {

    MyForm=TCLForm.Create(Self);

   

    buttonHesapla=MyForm.AddNewButton(MyForm,'yagOraniHesapla', 'Hesapla');

    buttonHesapla.Align = alBottom;    

   

    comboboxCinsiyet=MyForm.AddNewComboBox(MyForm, 'comboboxCinsiyet');

    comboboxCinsiyet.AddItem('Kadın' , '0')

    comboboxCinsiyet.AddItem('Erkek' , '1')

    comboboxCinsiyet.Align = alBottom;

    editBoy=MyForm.AddNewEdit(MyForm,'Boyedit', 'Boyunuzu Giriniz');

    //editYas=MyForm.AddNewEdit(MyForm,'Yasedit', 'Yasınızı Giriniz');

    //editKilo=MyForm.AddNewEdit(MyForm,'Kiloedit', 'Kilonuzu Giriniz');

    editBoyun=MyForm.AddNewEdit(MyForm,'Boyunedit', 'Boyun Cevrenizi Giriniz');

    editBel=MyForm.AddNewEdit(MyForm,'Beledit', 'Bel Cevrenizi Giriniz');

    editKalca=MyForm.AddNewEdit(MyForm,'Kalcaedit', 'Kalca Cevrenizi Giriniz');

   

    MyForm.AddNewEvent(buttonHesapla,tbeOnClick, 'yagOraniHesaplaIslemi');

   

    editBoy.Align = alTop; editBoy.Margins.Top = 25;

    //editYas.Align = alTop; editYas.Margins.Top = 25;

    //editKilo.Align = alTop; editKilo.Margins.Top = 25;

    editBoyun.Align = alTop; editBoyun.Margins.Top = 25;

    editBel.Align = alTop; editBel.Margins.Top = 25;

    editKalca.Align = alTop; editKalca.Margins.Top = 25;

    MyForm.Run;

  }

Unit Main: Syntax error.

Source position: 40,7