Genel İşlemler - 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;

}