Abschreibungsprocedur in Delphi

[Relicted]

Delphi-Quellcode:

wert := strtofloat (edit1.text);
jahre  := strtoint (edit2.text);
afabetrag := (kosten / jahre);
i := 1; // wird für die reihe verwendet..

while (restwert > afabetrag) do
begin
  restwert:= restwert - afabetrag;
  tabel.cells[ i,1 ] := floattostr( restwert );
  inc(i);
end;
tabel.cells[i,1] := floattostr(restwert);

schnell zusammengetippt. vielleicht hilft das auch noch bissl weiter. denke nicht dass es fehlerfrei ist. hab grad kein delphi zur hand. anschauen und verstehen und dann so ändern dass es funzt