009 8

begin

eWyswietl.Text:^:=e Wyświetl.Text+'5'; end;

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

e Wyświetl .Text:=e Wyświetl .Text+'6'; end;

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

eWyswietl.Text:=e Wyświetl.Text+'7'; end;

procedurę TForml ,bCyfra8Click(Sender: TObject); begin

eWyswietl.Text:=e Wyświetl.Text+'8'; end;

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

eWyswietl.Text:=eWyswietl.Text+'9';

end;

procedurę TForm 1 ,bPrzecinekClick(Sender: TObject); begin

e Wy swietl. Text :=e Wy swietl. Text+',¹; end;

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

drugaLiczba:double;

begin

try

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

except on EConvertError do

begin

ShowMessage('Nieprawidlowa liczba'); exit; end;

end;

if noweDzialanie-tak' then begin

1 iczba:=drugaLiczba; end else begin

if działanie-plus' then liczba:=liczba+drugaLiczba else if działanie-minus' then 1 iczba.-l iczba-drugaLiczba else if działanie-razy' then