Объяснить что делает переменная в коде на delphi

Это калькулятор, нужно объяснить для чего нужна переменная B, я сказал преподавателю что если у нас false, значит идёт ввод чисел, а когда у нас true, то идёт действие, преподаватель сказал что нет, B используется ещё до действий
var
Form1: TForm1;

B:Boolean;
D:Integer;
X:Real;

implementation

{$R *.dfm}

procedure TForm1.Button10Click(Sender: TObject);
begin
If B Then Edit1.Text:='';
B:=False;
If (Edit1.Text<>'0') or (Edit1.text='') Then
Edit1.Text:=Edit1.Text+'0';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
If B Then Edit1.Text:='';
B:=False;
Edit1.Text:=Edit1.Text+'1';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
If B Then Edit1.Text:='';
B:=False;
Edit1.Text:=Edit1.Text+'2';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
If B Then Edit1.Text:='';
B:=False;
Edit1.Text:=Edit1.Text+'3';
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
If B Then Edit1.Text:='';
B:=False;
Edit1.Text:=Edit1.Text+'4';
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
If B Then Edit1.Text:='';
B:=False;
Edit1.Text:=Edit1.Text+'5';
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
If B Then Edit1.Text:='';
B:=False;
Edit1.Text:=Edit1.Text+'6';
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
If B Then Edit1.Text:='';
B:=False;
Edit1.Text:=Edit1.Text+'7';
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
If B Then Edit1.Text:='';
B:=False;
Edit1.Text:=Edit1.Text+'8';
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
If B Then Edit1.Text:='';
B:=False;
Edit1.Text:=Edit1.Text+'9';
end;

procedure TForm1.Button11Click(Sender: TObject);
begin
X:=StrToFloat(Edit1.Text);
D:=1;
B:=True;
end;

procedure TForm1.Button12Click(Sender: TObject);
begin
X:=StrToFloat(Edit1.Text);
D:=2;
B:=True;
end;

procedure TForm1.Button13Click(Sender: TObject);
begin
X:=StrToFloat(Edit1.Text);
D:=3;
B:=True;
end;

procedure TForm1.Button14Click(Sender: TObject);
begin
X:=StrToFloat(Edit1.Text);
D:=4;
B:=True;
end;

procedure TForm1.Button15Click(Sender: TObject);
begin
Case D of
1: If Edit1.Text<>'0' then Edit1.Text:=FloatToStr(X/StrToFloat(Edit1.Text))
Else
Begin
Edit1.Text:=’ Делить на ноль нельзя!!!';
B:=True;
End;
2: Edit1.Text:=FloatToStr(X*StrToFloat(Edit1.Text));
3: Edit1.Text:=FloatToStr(X-StrToFloat(Edit1.Text));
4: Edit1.Text:=FloatToStr(X+StrToFloat(Edit1.Text));
End;
B:=True;
end;

procedure TForm1.Button17Click(Sender: TObject);
begin
If Edit1.Text<>'' then
Edit1.Text:=Edit1.Text+',';
end;

procedure TForm1.Button16Click(Sender: TObject);
begin
X:=0;
B:=False;
D:=4;
Edit1.Text:='';
end;

end.

 Уехала жена в командировку. Через 2 дня муж ей пишет SMS: "Где все ложки, ножи и вилки?", жена в ответ: "Спи дома!". Он ничего не понимает, но ждёт ещё 2 дня и опять пишет SMS: "Где все ложки, ножи и вилки?", жена в ответ: "Спи дома!".  

 

Через неделю возвращается жена домой, муж её встречает злой с вопросом, куда она дела все ложки, ножи и вилки. Жена берёт его за руку, ведёт в спальню и стягивает с кровати покрывало, а там лежат ложки, ножи и вилки!  

 

-Я же говорила тебе - спи дома!