Fonksiyon bulunumadı hatası

Basit bi hesap makinesi yapmaya çalıştım fakat fonksiyonu bulamadı hatası ile karşılaşıyorum.

//Calculator
var
mainForm: TCLForm;
editInput: TCLEdit;
userInput: String;

function takeUserInput:String;{
  userInput = editInput.Text;
  Result = userInput;
}

void Calculate{
  userInput = takeUserInput; //editInput.Text;
  editInput.Text = IntToStr(userInput); //editInput.Text
  // ShowMessage('IntToStr(userInput)');
}

void addSembol(sembol: Char);{
  userInput = takeUserInput; //editInput.Text;
  if(sembol=='d'){
    Delete(userInput, Length(userInput), 1);
  }
  else if(sembol == '+'){
    userInput = userInput+ '+';
  }else if(sembol == '-'){
    userInput = userInput+ '-';
  }else if(sembol == '*'){
    userInput = userInput+ '*';
  }else if(sembol == '/'){
    userInput = userInput+ '/';
  }

  editInput.Text = userInput;
}
void setupForm;
var
calculateBtn, plusBtn, minusBtn, multipleBtn, diversionBtn :TClProButton;
{
  mainForm = TCLForm.Create(self);
  editInput = mainForm.AddNewEdit(mainForm,'editInput', 'Write to Calculate...');
  editInput.align = alTop;

  plusBtn = mainForm.AddNewProButton(mainForm, 'plusBtn', '+');
  plusBtn.Margins.left = 400;
  plusBtn.Margins.right = 100;
  plusBtn.Margins.Top = 50;
  plusBtn.align = alCenter;
  minusBtn = mainForm.AddNewProButton(mainForm, 'minusBtn', '-');
  minusBtn.Margins.left = 300;
  minusBtn.Margins.right = 100;
  minusBtn.Margins.Top = 50;
  minusBtn.align = alCenter;
  multipleBtn = mainForm.AddNewProButton(mainForm, 'multipleBtn', '*');
  multipleBtn.Margins.left = 200;
  multipleBtn.Margins.right = 100;
  multipleBtn.Margins.Top = 50;
  multipleBtn.align= alCenter;
  diversionBtn = mainForm.AddNewProButton(mainForm, 'diversionBtn', '/');
  diversionBtn.Margins.left = 100;
  diversionBtn.Margins.right = 100;
  diversionBtn.Margins.Top = 50;
  diversionBtn.align= alCenter;

  calculateBtn = mainForm.AddNewProButton(mainForm, 'calculateBtn', 'Calculate');

  mainForm.AddNewEvent(plusBtn,tbeOnClick,'addSembol(''+'')');
  mainForm.AddNewEvent(minusBtn,tbeOnClick,'addSembol(''-''');
  mainForm.AddNewEvent(multipleBtn,tbeOnClick,'addSembol(''*'')');
  mainForm.AddNewEvent(diversionBtn,tbeOnClick,'addSembol(''/'')');

  mainForm.AddNewEvent(calculateBtn,tbeOnClick,'Calculate');
  mainForm.AddNewEvent(calculateBtn,tbeOnEnter,'Calculate');

}

{
  setupForm;
  mainForm.run;

}

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
M-Guney Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 16 Eylül 2025 Konum: Konya, Meram, K Durum: Aktif Değil Puanlar: 13	Mesaj Seçenekleri Yanıt Yaz Alıntı M-Guney Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Fonksiyon bulunumadı hatası Gönderim Zamanı: 8 Saat 47 Dakika Önce Saat 17:04
	Basit bi hesap makinesi yapmaya çalıştım fakat fonksiyonu bulamadı hatası ile karşılaşıyorum. //Calculator var mainForm: TCLForm; editInput: TCLEdit; userInput: String; function takeUserInput:String;{ userInput = editInput.Text; Result = userInput; } void Calculate{ userInput = takeUserInput; //editInput.Text; editInput.Text = IntToStr(userInput); //editInput.Text // ShowMessage('IntToStr(userInput)'); } void addSembol(sembol: Char);{ userInput = takeUserInput; //editInput.Text; if(sembol=='d'){ Delete(userInput, Length(userInput), 1); } else if(sembol == '+'){ userInput = userInput+ '+'; }else if(sembol == '-'){ userInput = userInput+ '-'; }else if(sembol == ''){ userInput = userInput+ ''; }else if(sembol == '/'){ userInput = userInput+ '/'; } editInput.Text = userInput; } void setupForm; var calculateBtn, plusBtn, minusBtn, multipleBtn, diversionBtn :TClProButton; { mainForm = TCLForm.Create(self); editInput = mainForm.AddNewEdit(mainForm,'editInput', 'Write to Calculate...'); editInput.align = alTop; plusBtn = mainForm.AddNewProButton(mainForm, 'plusBtn', '+'); plusBtn.Margins.left = 400; plusBtn.Margins.right = 100; plusBtn.Margins.Top = 50; plusBtn.align = alCenter; minusBtn = mainForm.AddNewProButton(mainForm, 'minusBtn', '-'); minusBtn.Margins.left = 300; minusBtn.Margins.right = 100; minusBtn.Margins.Top = 50; minusBtn.align = alCenter; multipleBtn = mainForm.AddNewProButton(mainForm, 'multipleBtn', ''); multipleBtn.Margins.left = 200; multipleBtn.Margins.right = 100; multipleBtn.Margins.Top = 50; multipleBtn.align= alCenter; diversionBtn = mainForm.AddNewProButton(mainForm, 'diversionBtn', '/'); diversionBtn.Margins.left = 100; diversionBtn.Margins.right = 100; diversionBtn.Margins.Top = 50; diversionBtn.align= alCenter; calculateBtn = mainForm.AddNewProButton(mainForm, 'calculateBtn', 'Calculate'); mainForm.AddNewEvent(plusBtn,tbeOnClick,'addSembol(''+'')'); mainForm.AddNewEvent(minusBtn,tbeOnClick,'addSembol(''-'''); mainForm.AddNewEvent(multipleBtn,tbeOnClick,'addSembol('''')'); mainForm.AddNewEvent(diversionBtn,tbeOnClick,'addSembol(''/'')'); mainForm.AddNewEvent(calculateBtn,tbeOnClick,'Calculate'); mainForm.AddNewEvent(calculateBtn,tbeOnEnter,'Calculate'); } { setupForm; mainForm.run; }

Emr.Erkmn Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Moderatör Kayıt Tarihi: 28 Şubat 2025 Durum: Aktif Değil Puanlar: 274	Mesaj Seçenekleri Yanıt Yaz Alıntı Emr.Erkmn Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(1) Alıntı Cevapla Gönderim Zamanı: 8 Saat 13 Dakika Önce Saat 17:38
	Merhaba Güney, Daha önce foruma sorulmuş bir konunun linkini paylaşıyorum. İnceleyebilirsin. https://forum.clomosy.com.tr/topic1072.html İyi çalışmalar.

M-Guney Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 16 Eylül 2025 Konum: Konya, Meram, K Durum: Aktif Değil Puanlar: 13	Mesaj Seçenekleri Yanıt Yaz Alıntı M-Guney Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 7 Saat 52 Dakika Önce Saat 17:59
	İnceledim fakat neden fonksiyon bulunamadı dediğini anlayamadım.