012 6

end;

procedurę TForml.bRownaSieClick(Sender: TObject); var

drugaLiczba:double;

begin

try

drugaLiczba:=strtofloat(e Wyświetl.Text);

except on EConvertError do

begin

ShowMessage(’Nieprawidłowa liczba'); liczba:=0; exit; end;

end;

if noweDziaianie-tak' then begin

I i cz ba: =drugaL i czba; end else begin

if działanie-plus' then liczba-liczba+drugaLiczba else if działanie-minus¹ then liczba:-liczba-drugaLiczba else if działanie-razy' then liczba:=liczba*drugaLiczba else if działanie—podzielić' then iiczba:=liczba/drugaLiczba; end;

eWyswietl.Text:=floattostr(liczba);

łiczba:=0;

noweDzialan ietak'; end;

procedurę TForml.bZerujClick(Sender: TObject); begin

e Wy swietl .Text:-'; noweDziaianie:-tak'; liczba:=0; end;

procedurę TForml.bPotegaClick(Sender: TObject);

begin

try

1 iczba:-strto int(e Wyświetl .Text); except on EConvertError do begin

ShowMessage ('nieprawidłowa liczba'); exit;