CODING BUAT DELPHI

CODING BUAT TPE DATA INTEGER
(+) edit3.Text:=IntToStr(StrToInt(Edit1.Text)+StrToInt(Edit2.Text));
(/) edit3.Text:=IntToStr(StrToInt(Edit1.Text)div StrToInt(Edit2.Text));
(*) edit3.Text:=IntToStr(StrToInt(Edit1.Text)*StrToInt(Edit2.Text));
(-) edit3.Text:=IntToStr(StrToInt(Edit1.Text)-StrToInt(Edit2.Text));

CODING BUAT TIPE DATA FLOAT
(+) edit3.Text:=FloatToStr(StrToFloat(Edit1.Text)+StrToFloat(Edit2.Text));
(-) edit3.Text:=FloatToStr(StrToFloat(Edit1.Text)-StrToFloat(Edit2.Text));
(/) edit3.Text:=FloatToStr(StrToFloat(Edit1.Text)div StrToFloat(Edit2.Text));
(*) edit3.Text:=FloatToStr(StrToFloat(Edit1.Text)*StrToFloat(Edit2.Text));

CODING
1. Close : If (application.MessageBox('Keluar?','Calclator',mb_yesno))=idyes then
close;
2.Hapus/Reset : Edit1.Clear;
                      Edit2.Clear;
                      Edit3.Clear;