Решить задачу на delphi 7

Добавить функции из инженерного калькулятора и ответить на вопросы
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. Дополните приложение кнопками позволяющими работать с инженерным калькулятором.

3. Ответьте на контрольные вопросы:
- В каких целях применяется булева переменная «B», целочисленная переменная «D» и переменная Х?
- С помощью какой функции преобразуются строковый и вещественный типы, и наоборот.
- С помощью какого свой
ства объектов TButon, TLabel и TForm можно менять надписи на компонентах.
- Где и каким образом в программе проверяются попытки деления на ноль?