Procedure TForm1.Button1Click(Sender: TObject) begin if memo1.text then if MemLogic=0 then begin MemLogic:=1 if MemOperator then memo1.Text:=1 else memo1.text:=1 end else memo1.Text:=memo1.Text+1 Procedure TForm1.Button0Click(Sender: TObject) begin if memo1.text then if MemLogic=0 then begin if MemOperator then memo1.Text:=0 else if memo1.text=0 then memo1.text:=0 else begin memo1.Text:=memo1.Text+0 MemLogic:=1 end end Procedure ButtonNotClick(Sender: TObject) procedure ButtonAkarClick(Sender: TObject) procedure ButtonPangkatClick(Sender: TObject) procedure ButtonLnClick(Sender: TObject) procedure ButtonLogClick(Sender: TObject) procedure ButtonPerClick(Sender: TObject) procedure ButtonFakClick(Sender: TObject) procedure ButtonPhiClick(Sender: TObject) procedure ButtonSinClick(Sender: TObject) procedure ButtonCosClick(Sender: TObject) procedure ButtonTanClick(Sender: TObject) procedure ButtonMClick(Sender: TObject) procedure ButtonMrClick(Sender: TObject) private RbDEG.Checked :=false RbRAD.Checked :=false RbGRADS.Checked:=false Type TForm1 = class(TForm) ButtonMr: TButton ButtonSin: TButton Button7: TButton Button4: TButton īutton1: TButton Button0: TButton ButtonPoint: TButton ButtonNot: TButton ButtonResult: TButton Button2: TButton ButtonM: TButton ButtonCos: TButton Button8: TButton Button5: TButton ButtonPhi: TButton ButtonTan: TButton Button9: TButton Button6: TButton Button3: TButton ButtonPlus: TButton ButtonFak: TButton ButtonLn: TButton ButtonKuadrat: TButton ButtonKali: TButton ButtonOff: TButton ButtonLog: TButton ButtonAkar: TButton ButtonPangkat: TButton ButtonDiv: TButton ButtonOn: TButton ButtonPer: TButton ButtonMod: TButton īuttonMin: TButton ButtonBagi: TButton RbDEG: TRadioButton RbRAD: TRadioButton RbGRADS: TRadioButton Memo1: TMemo procedure FormCreate(Sender: TObject) procedure ButtonOnClick(Sender: TObject) procedure ButtonOffClick(Sender: TObject) procedure Button0Click(Sender: TObject) procedure Button1Click(Sender: TObject) procedure Button2Click(Sender: TObject) procedure Button3Click(Sender: TObject) procedure Button4Click(Sender: TObject) procedure Button5Click(Sender: TObject) procedure Button6Click(Sender: TObject) procedure Button7Click(Sender: TObject) procedure Button8Click(Sender: TObject) procedure Button9Click(Sender: TObject) procedure ButtonPlusClick(Sender: TObject) procedure ButtonMinClick(Sender: TObject) procedure ButtonKaliClick(Sender: TObject) procedure ButtonBagiClick(Sender: TObject) procedure ButtonModClick(Sender: TObject) procedure ButtonDivClick(Sender: TObject) procedure ButtonResultClick(Sender: TObject) procedure ButtonKuadratClick(Sender: TObject) procedure ButtonPointClick(Sender: TObject) Uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls Web Application development in Delphi 10.4.CARA MEMBUAT APLIKASI KALKULATOR DENGAND DELPHI 7 BUAT FORM SEPERI DI BAWAH INI CREATED BY A.Z.I.Z._T.E.K.N.I.K.I.N.F.O.R.M.A.T.I.K.A.