Кнопки для калькулятора

[ololo23]

Нужно сделать кнопки (%,x^y).
Послезавтра у меня НОУ. Нужно до делать калькулятор. Помогите пожалуйста.
Вот скрин и исходник:

[Stilet]

Предлагаешь нам их рисовать?

[Kix.IV]

А чем эти не нравятся? Можно попробовать шрифт поменять.

[ololo23]

Нужно коды для кнопок написать.Чтобы они выполняли действие которое изоброжают.
Они внутри пустые.(безкода) Просто это функция когда едит пуст эти кнопки недоступны.

[Stilet]

Ясно.
Процент:

procedure TForm1.BitBtnКакая-тоClick(Sender: TObject);
begin
  edit1.Text:=floattostr(a*b/100);
end;

Степень:

procedure TForm1.BitBtnКакая-тоClick(Sender: TObject);
begin
  edit1.Text:=floattostr(power(a,b));
end;

Добавишь в uses модуль math.

[ololo23]

так а в кнопке = что надо писать?
просто так ересь получается

[ololo23]

Со степенью помог а с процентами чета невыходит

[Sibedir]

[%] работает следующим образом
Допустим нужно 5+35%. Это значит, что к 5 нужно прибавить 35% от 5 (от последнего числа).
- вводим 5
- нажимаем [+]
В стек данных записывается 5. В стек операций записывается +.
Stek[1] := 5
Oper := '+'
- вводим 35
- нажимем [%]
Последнее число из стека данных делится на 100, умножается на 35 и выводится. В итоге в edit'е 5*0.35=1.75
- нажимаем [=]
В стек данных записывается 1.75. И выполняется прерация из стека операций над данными из стека данных.
Stek[2] := 1.75
Имеем

Stek[1]  Oper  Stek[2]
   5      +     1.75     = 6,75

[Stilet]

Sibedir

Жаль что автору это не поможет )
Ему Pure Code нужен.

[Sibedir]

Ну ладно, ладно. Уговорил

if edit1.Text<>'' then
  edit1.Text := FloatToStr (a/100*strtofloat(edit1.Text));