procedure TLadekapazitaetsrechner.Button1Click(Sender: TObject);
var kT,gT,lJ,Sj,K,SS,
Kol,Rec,Spio,B,Z,Rip,erg,ergk,ergM,Lade,ergkT,erggT:real;
begin
kT:=strtofloat(edit1.Text);
gT:=strtofloat(edit2.Text);
lj:=strtofloat(edit3.Text);
sJ:=strtofloat(edit4.Text);
k:=strtofloat(edit5.Text);
ss:=strtofloat(edit6.Text);
kol:=strtofloat(edit7.Text);
rec:=strtofloat(edit8.Text);
spio:=strtofloat(edit9.Text);
b:=strtofloat(edit10.Text);
z:=strtofloat(edit11.Text);
rip:=strtofloat(edit12.Text);
Lade:=strtofloat(edit16.Text);
ergkT:=(Lade/5000); [color=#ff0000]das ergebnis hier soll gerundet werden[/color]
erggT:=(Lade/25000); [color=#ff0000]und das auch. und nur auf ganze aufgerudet bitte 8)[/color]
edit17.Text:=floattostr(ergkT);
edit18.Text:=floattostr(erggT);
erg:=(kt*5000)+(gt*25000)+(lj*50)+(sJ*100)+(k*800)+(ss*1500)+(
kol*7500)+(rec*20000)+(spio*5)+(B*500)+(z*2000)+(rip*1000000);
ergk:=((kt*5000)+(gt*25000)+(lj*50)+(sJ*100)+(k*800)+(ss*1500)+(
kol*7500)+(rec*20000)+(spio*5)+(B*500)+(z*2000)+(rip*1000000))/1000;
ergM:=((kt*5000)+(gt*25000)+(lj*50)+(sJ*100)+(k*800)+(ss*1500)+(
kol*7500)+(rec*20000)+(spio*5)+(B*500)+(z*2000)+(rip*1000000))/1000000;
edit13.Text:=floattostr(erg);
edit14.Text:=floattostr(ergk);
edit15.Text:=floattostr(ergM);
end ;