How to create a simple Calculator on Lazarus & Delphi.

Create a simple calculator in 8 minutes.

Plus Button

var
Num1, Num2, Result: Integer;
begin
lblAction.Caption:='+';

Num1:=StrToInt(edtNum1.Text);
Num2:=StrToInt(edtNum2.Text);
Result:=Num1+Num2;

lblResult.Caption:=IntToStr(Result);
----------------------------------------------------------------------------------------
Minus Button

var
Num1, Num2, Result: Integer;
begin
lblAction.Caption:='-';

Num1:=StrToInt(edtNum1.Text);
Num2:=StrToInt(edtNum2.Text);
Result:=Num1-Num2;

lblResult.Caption:=IntToStr(Result);
end;