var

  Form1: TForm1;

  NUM1, NUM2, Resultado: Real;

  Exibicao: String;

  Deci: Boolean;

  Operador: Integer;

implementation

{$R *.dfm}

procedure TForm1.ButtonZeroClick(Sender: TObject);

begin

  insert ('0', Exibicao, 255);

  LabelResultado.Caption := Exibicao;

end;

procedure TForm1.ButtonOneClick(Sender: TObject);

begin

  insert ('1', Exibicao, 255);

  LabelResultado.Caption := Exibicao;

end;

procedure TForm1.ButtonTwoClick(Sender: TObject);

begin

  insert ('2', Exibicao, 255);

  LabelResultado.Caption := Exibicao;

end;

procedure TForm1.ButtonThreeClick(Sender: TObject);

begin

  insert ('3', Exibicao, 255);

  LabelResultado.Caption := Exibicao;

end;

procedure TForm1.ButtonFourClick(Sender: TObject);

begin

  insert ('4', Exibicao, 255);

  LabelResultado.Caption := Exibicao;

end;

procedure TForm1.ButtonFiveClick(Sender: TObject);

begin

  insert ('5', Exibicao, 255);

  LabelResultado.Caption := Exibicao;

end;

procedure TForm1.ButtonSixClick(Sender: TObject);

begin

  insert ('6', Exibicao, 255);

  LabelResultado.Caption := Exibicao;

end;

procedure TForm1.ButtonSevenClick(Sender: TObject);

begin

  insert ('7', Exibicao, 255);

  LabelResultado.Caption := Exibicao;

end;

procedure TForm1.ButtonEightClick(Sender: TObject);

begin

  insert ('8', Exibicao, 255);

  LabelResultado.Caption := Exibicao;

end;

procedure TForm1.ButtonNineClick(Sender: TObject);

begin

  insert ('9', Exibicao, 255);

  LabelResultado.Caption := Exibicao;

end;

procedure TForm1.ButtonDecClick(Sender: TObject);

begin

  If Deci = False

    Then Begin

           insert (',', Exibicao, 255);

           LabelResultado.Caption := Exibicao;

           Deci := True;

         End;

end;

procedure TForm1.ButtonMinusClick(Sender: TObject);

begin

  Num1 := StrToFloat(LabelResultado.Caption);

  Operador := 1;

  LabelResultado.Caption := '';

  Exibicao := '';

  Deci := False;

end;

procedure TForm1.ButtonPlusClick(Sender: TObject);

begin

  Num1 := StrToFloat(LabelResultado.Caption);

  Operador := 2;

  LabelResultado.Caption := '';

  Exibicao := '';

  Deci := False;

end;

procedure TForm1.ButtonDivClick(Sender: TObject);

begin

  Num1 := StrToFloat(LabelResultado.Caption);

  Operador := 3;

  LabelResultado.Caption := '';

  Exibicao := '';

  Deci := False;

end;

procedure TForm1.ButtonMultClick(Sender: TObject);

begin

  Num1 := StrToFloat(LabelResultado.Caption);

  Operador := 4;

  LabelResultado.Caption := '';

  Exibicao := '';

  Deci := False;

end;

procedure TForm1.ButtonEqualsClick(Sender: TObject);

begin

  Num2 := StrToFloat(LabelResultado.Caption);

  Case Operador of

  1 : Resultado := Num1 - Num2;

  2 : Resultado := Num1 + Num2;

  3 : Resultado := Num1 / Num2;

  4 : Resultado := Num1 * Num2;

  End;

  LabelResultado.Caption := FloatToStr(Resultado);

  Num1 := 0;

  Num2 := 0;

  Exibicao := '';

  Deci := False;

end;

procedure TForm1.ButtonCleanClick(Sender: TObject);

begin

  LabelResultado.Caption := '';

  Num1 := 0;

  Num2 := 0;

  Exibicao := '';

  Deci := False;

end;

end.