interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
Tfrmcalculadora = class(TForm)
edtnum1: TEdit;
edtnum2: TEdit;
edtnum3: TEdit;
lblop: TLabel;
btnvezes: TButton;
btnlimpar: TButton;
btnsoma: TButton;
btnmenos: TButton;
btndivisao: TButton;
lbligual: TLabel;
procedure btnvezesClick(Sender: TObject);
procedure btnlimparClick(Sender: TObject);
procedure btnsomaClick(Sender: TObject);
procedure btnmenosClick(Sender: TObject);
procedure btndivisaoClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
frmcalculadora: Tfrmcalculadora;

implementation

{$R *.dfm}

procedure Tfrmcalculadora.btnvezesClick(Sender: TObject);
Var
Valor1:Real;
Valor2:Real;
Resultado:Real;
begin
Valor1:=strtofloat(edtnum1.text);
Valor2:=strtofloat(edtnum2.text);
Resultado:=Valor1*Valor2;
edtnum3.Text:=floattostr(resultado);
lblop.Caption:='X';
end;

procedure Tfrmcalculadora.btnlimparClick(Sender: TObject);
begin
edtnum1.text:='';
edtnum2.text:='';
edtnum3.text:='';
edtnum1.SetFocus;
lblop.Caption:='';
end;

procedure Tfrmcalculadora.btnsomaClick(Sender: TObject);
Var
valor1:real;
valor2:real;
resultado:real;

begin
valor1:=StrToFloat(edtnum1.Text);
valor2:=StrToFloat(edtnum2.Text);
resultado:=valor1+valor2;
edtnum3.Text:=FloatToStr(resultado);
lblop.Caption:='+';
end;

procedure Tfrmcalculadora.btnmenosClick(Sender: TObject);
var
valor1:real;
valor2:real;
resultado:real;
begin
valor1:=strtofloat(edtnum1.text);
valor2:=strtofloat(edtnum2.text);
resultado:=valor1-valor2;
edtnum3.Text:=floattostr(resultado);
lblop.Caption:='-';
end;

procedure Tfrmcalculadora.btndivisaoClick(Sender: TObject);
var
valor1:real;
valor2:real;
resultado:real;
begin
valor1:=strtofloat(edtnum1.Text);
valor2:=strtofloat(edtnum2.Text);
resultado:=valor1/valor2;
edtnum3.Text:=floattostr(resultado);
lblop.Caption:='÷';
end;

end.