var
A: integer;
B: integer;
C: integer;
d: Integer;
begin
a:= StrToint(edit3.text);
b:= StrToint(edit2.text);
Edit4.text:= intToStr(A+B);
C:=StrToInt(Edit4.Text);
Edit5.Text:=IntToStr(c*b);
d:= StrToInt(Edit5.Text);
sSpeedButton9.Caption:=IntToStr(d/100);
procedure TForm1.Button1Click(Sender: TObject);
var a:real;
begin
edit3.Text:=floattostr(strtofloat(edit1.text)/ strtofloat(edit2.text));
end;Edit4.Text:=FloatToStr(StrToFloat(Edit2.Text)+StrToFloat(Edit3.Text ));
Edit5.Text:=FloatToStr(StrToFloat(Edit2.Text)*StrToFloat(Edit4.Text ));
sSpeedButton9.Caption:=FloatToStr(StrToFloat(Edit5.Text)/StrToFloat( Edit6.Text));
var
A: integer;
B: integer;
C: integer;
begin
a:= StrToint(edit3.text);
b:= StrToint(edit2.text);
Edit4.text:= intToStr(A+B);
C:=StrToInt(Edit4.Text);
Edit5.Text:=IntToStr(c*b);
sSpeedButton9.Caption:=FloatToStr(StrToFloat(Edit5.Text)/StrToFloat( Edit6.Text));