[tihon_65]

Код:

procedure TForm6.KvadrClick(Sender: TObject);
begin
 a := StrToFloat(Edit1.Text) ;
 mode := 5 ;
 Edit1.Text := '0' ;
end;


procedure TForm6.RavnoClick(Sender: TObject);
begin
case mode of
1 : begin
b := StrToFloat(Edit1.Text) ;
c := a + b ;
Edit1.Text := FloatToStr (c);
end;
2 : begin
b := StrToFloat(Edit1.Text) ;
c := a - b ;
Edit1.Text := FloatToStr (c);
end;
3 : begin
b := StrToFloat(Edit1.Text) ;
c := a * b ;
Edit1.Text := FloatToStr (c);
end;
4 : begin
b := StrToFloat(Edit1.Text) ;
begin
if b<>0 then
begin
c := a / b ;
Edit1.Text := FloatToStr (c);
end;
end;
end;
5 : begin
b := StrToFloat(Edit1.Text) ;
c := Power(a,b) ;
Edit1.Text := FloatToStr (c);
end;
end;
end;
end.

.Здесь последним обрабатывается возведение в квадрат потом равно.Надо добавить еще кнопку степень.Но она будет последней.И обработка после равно ,а надо до него.Пробовал в ручную записать- не правильно работает.