1:
2:
3:
4:
5:
6:
7:
8:

       for count:=1 to a do    //eingebrachtes Kapital
         begin
           sg1.cells[0,count]:=namen[count];
           sg1.cells[1,count]:=FloatToStr(Kapital[count]);
           sg1.cells[2,count]:=FloatToStr(kapital[count] * 0.04);
           sg1.cells[3,count]:=FloatToStr(Rest);
           sg1.cells[4,count]:=FloatToStr(Rest+(kapital[count]*0.04));
         end;