Нужно исправить калькулятор в делфи.

[Nika5]

Нужно написать калькулятор, в котором кнопки +,-,*,/ работали бы еще и как кнопка равно... я написала код, но программа не работает должным образом... пожалуйста, помогите исправить эту ошибку...
Заранее благодарна.
PS: архив с проектом прикреплен ниже.

[mikand]

Как вариант, добавить Edit2 для второго числа, Edit3 для результата. Тогда при нажатии "+" может работать как равно.

procedure TForm1.Button1Click(Sender: TObject);
begin
   operand1:=StrToFloat(Edit1.Text);
   operand2:=StrToFloat(Edit2.Text);
   if c='+' then rezultat:=operand1+operand2;

   Edit3.Text:=FloatToStr(rezultat);
   operation:=1;
   Edit1.SetFocus;
   c:='+';
end;