Стр. 271 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
271
procedure TForm1.FormCreate(Sender: TObject);
begin
oper:=0;
f:=0;
accum:=0;
Form1.BorderStyle:=bsDialog;
Form1.Caption:='Калькулятор';
Form1.Color:=clSkyBlue;
Edit1.Text:='0';
Edit1.Font.Color:=clNavy;
Edit1.Font.Size:=12;
Edit1.Color:=clSkyBlue;
Edit1.ReadOnly:=true;
SpeedButton0.Flat:=true;
SpeedButton1.Flat:=true;
SpeedButton2.Flat:=true;
SpeedButton3.Flat:=true;
SpeedButton4.Flat:=true;
SpeedButton5.Flat:=true;
SpeedButton6.Flat:=true;
SpeedButton7.Flat:=true;
SpeedButton8.Flat:=true;
SpeedButton9.Flat:=true;
ravno.Flat:=true;
zap.Flat:=true;
minus.Flat:=true;
plus.Flat:=true;
del.Flat:=true;
umn.Flat:=true;
c.Flat:=true;
SpeedButton0.Tag:=0;
SpeedButton1.Tag:=1;
SpeedButton2.Tag:=2;
SpeedButton3.Tag:=3;
SpeedButton4.Tag:=4;
SpeedButton5.Tag:=5;
SpeedButton6.Tag:=6;
SpeedButton7.Tag:=7;
SpeedButton8.Tag:=8;
SpeedButton9.Tag:=9;
ravno.Tag:=0;
plus.Tag:=1;
minus.Tag:=2;
umn.Tag:=3;