var
  Form1: TForm1;
  i, p, r: real;
  mode: integer;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
     edit1.Text:=edit1.Text+'1';
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
     edit1.Text:=edit1.Text+'2';
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
     edit1.Text:=edit1.Text+'3';
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
begin
     edit1.Text:=edit1.Text+'4';
end;

procedure TForm1.BitBtn5Click(Sender: TObject);
begin
     edit1.Text:=edit1.Text+'5';
end;

procedure TForm1.BitBtn6Click(Sender: TObject);
begin
     edit1.Text:=edit1.Text+'6';
end;

procedure TForm1.BitBtn7Click(Sender: TObject);
begin
     edit1.Text:=edit1.Text+'7';
end;

procedure TForm1.BitBtn8Click(Sender: TObject);
begin
     edit1.Text:=edit1.Text+'8';
end;

procedure TForm1.BitBtn9Click(Sender: TObject);
begin
     edit1.Text:=edit1.Text+'9';
end;

procedure TForm1.BitBtn10Click(Sender: TObject);
begin
     edit1.Text:=edit1.Text+'0';
end;

procedure TForm1.BitBtn11Click(Sender: TObject);
begin
     if edit1.Text<>'' then
     begin
          i:=StrToFloat(edit1.Text);
          i:=-1*i;
          edit1.Text:=FloatToStr(i);
     end;
end;

procedure TForm1.BitBtn12Click(Sender: TObject);
begin
     edit1.Text:=edit1.Text+',';
end;

procedure TForm1.BitBtn13Click(Sender: TObject);
begin
     i:=StrToFloat(edit1.Text);
     mode:=1;
     edit1.Text:='';
end;

procedure TForm1.BitBtn14Click(Sender: TObject);
begin
     i:=StrToFloat(edit1.Text);
     mode:=2;
     edit1.Text:='';
end;

procedure TForm1.BitBtn15Click(Sender: TObject);
begin
     i:=StrToFloat(edit1.Text);
     mode:=3;
     edit1.Text:='';
end;

procedure TForm1.BitBtn16Click(Sender: TObject);
begin
     i:=StrToFloat(edit1.Text);
     mode:=4;
     edit1.Text:='';
end;

procedure TForm1.BitBtn18Click(Sender: TObject);
begin
     if StrToFloat(edit1.Text)<0 then
        edit1.Text:='Недопустимый аргумент функции';
     else
     begin
          i:=StrToFloat(edit1.Text);
          i:=sqrt(i);
          edit1.Text:=FloatToStr(i);
     end;
end;

procedure TForm1.BitBtn19Click(Sender: TObject);
begin
     if StrToFloat(edit1.Text)=0 then
        edit1.Text:='Деление на ноль запрещено!';
     else
     begin
          i:=StrToFloat(edit1.Text);
          i:=1/i;
          edit1.Text:=FloatToStr(i);
     end;
end;

procedure TForm1.BitBtn20Click(Sender: TObject);
begin
     i:=StrToFloat(edit1.Text);
     i:=i*pi/180;
     edit1.Text:=FloatToStr(Sin(i));
end;

procedure TForm1.BitBtn21Click(Sender: TObject);
begin
     i:=StrToFloat(edit1.Text);
     i:=i*pi/180;
     edit1.Text:=FloatToStr(Cos(i));
end;

procedure TForm1.BitBtn22Click(Sender: TObject);
begin
     case mode of
     1: begin
        p:=StrToFloat(edit1Text);
        r:=i+p;
        edit1.Text:=FloatToStr(r);
     end;
     2: begin
        p:=StrToFloat(edit1Text);
        r:=i-p;
        edit1.Text:=FloatToStr(r);
     end;
     3: begin
        p:=StrToFloat(edit1Text);
        r:=i*p;
        edit1.Text:=FloatToStr(r);
     end;
     4: begin
        p:=StrToFloat(edit1Text);
        if p<>0 then
        begin
             r:=i+p;
             edit1.Text:=FloatToStr(r);
        end
        else
            edit1.Text:='Деление на ноль запрещено';
        end;
end;

procedure TForm1.BitBtn17Click(Sender: TObject);
begin
     edit1.Text:='';
end;