if tipoconta = 'adição' then
begin
valor2:=strtofloat(edit1.text);
edit1.text:=floattostr(valor1+valor2);
end;
if tipoconta = 'subtração' then
begin
valor2:=strtofloat(edit1.text);
edit1.text:=floattostr(valor1-valor2);
end;
if tipoconta = 'divisão' then
begin
valor2:=strtofloat(edit1.text);
edit1.text:=floattostr(valor1/valor2);
end;
if tipoconta = 'multiplicação' then
begin
valor2:=strtofloat(edit1.text);
valor1:= valor1*valor2;
edit1.text:=floattostr(valor1);
end;
-------- botão % --------
if tipoconta = 'adição' then
begin
porcentagem:=strtofloat(edit1.text);
porcentagem:=porcentagem/100;
porcentagem:=porcentagem*valor1;
edit1.text:=floattostr(valor1+porcentagem);
end;
if tipoconta = 'subtração' then
begin
porcentagem:=strtofloat(edit1.text);
porcentagem:=porcentagem/100;
porcentagem:=porcentagem*valor1;
edit1.text:=floattostr(valor1-porcentagem);
end;