procedure TForm6.Button6Click(Sender: TObject);

var
a,b,c:variant;

begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);
c:=a+b;
edit8.text:=floattostr(c);


end;


procedure TForm6.Button7Click(Sender: TObject);
var
a,b,c,d:variant;
begin
a:=strtofloat(edit8.Text);
b:=a * 72 ;
c:=b/1000;
edit13.Text:=floattostr(c);



end;

procedure TForm6.Button8Click(Sender: TObject);
var
a,b,c,d:variant;
begin
a:=strtofloat(edit8.Text);
b:=a * 10 ;
c:=b/100;
edit16.Text:=floattostr(c);


end;

procedure TForm6.Button9Click(Sender: TObject);
var
a,b,c,d,e,f:variant;
begin
a:=strtofloat(edit8.Text);
b:=strtofloat(edit9.Text);
c:=strtofloat(edit12.Text);
d:=strtofloat(edit13.text);
e:=strtofloat(edit16.Text);
f:=a+b+c+d+e;
edit17.Text:=floattostr(f);


end;

procedure TForm6.Button10Click(Sender: TObject);
begin
dm1.icradetaytable.Last;
maskedit1.Text:=dm1.icradetaytableTARIH.Text;
maskedit2.Text:=dm1.icradetaytableHESAPTAR.Text;
button1.Click;
button4.Click;
button6.Click;
button7.Click;
Button8.Click;
button9.Click;
button11.Click;
button12.Click;
button13.Click;
button14.Click;
button15.Click;

end;

procedure TForm6.Button11Click(Sender: TObject);
var
a,b,c:variant;
begin
a:=strtofloat(edit11.Text);
b:=a * 5 ;
c:=b/100;
edit26.Text:=floattostr(c);

end;

procedure TForm6.Button12Click(Sender: TObject);
var
a,b,c,d:variant;

begin
a:=strtofloat(edit18.text);
b:=strtofloat(edit19.text);
c:=strtofloat(edit26.Text);
d:=a+b+c;
edit20.text:=floattostr(d);
end;

procedure TForm6.Button13Click(Sender: TObject);
var
a,b,c,d:variant;
begin
a:=strtofloat(edit20.Text);
b:=a * 72 ;
c:=b/1000;
edit23.Text:=floattostr(c);
end;

procedure TForm6.Button14Click(Sender: TObject);
var
a,b,c,d:variant;
begin
a:=strtofloat(edit20.Text);
b:=a * 10 ;
c:=b/100;
edit24.Text:=floattostr(c);
end;

procedure TForm6.Button15Click(Sender: TObject);
var
a,b,c,d,e,f:variant;
begin
a:=strtofloat(edit20.Text);
b:=strtofloat(edit21.Text);
c:=strtofloat(edit22.Text);
d:=strtofloat(edit23.text);
e:=strtofloat(edit24.Text);
f:=a+b+c+d+e;
edit25.Text:=floattostr(f);

end;

end.
__________________