Abschreibungsprocedur in Delphi

[freak4fun]

Delphi-Quellcode:

procedure LinearAbschr(Sender: TObject);
var
  jahre, i : integer;
  afabetrag, wert, restwert: double;
begin
  stgtabelle.cells[0,0] := 'Nutzjahr';
  stgtabelle.cells[1,0] := 'AFA-Betrag';
  stgtabelle.cells[2,0] := 'Restbuchwert';

  wert   := StrToFloat(Edit1.Text);
  jahre  := StrToInt  (Edit2.Text);

  afabetrag := (kosten / jahre); // Abschreibungsbetrag
  stgtabelle.RowCount := jahre + 1; // Länge Tabelle

  for i := 1 to jahre do // für jedes Jahr
    begin
      restwert := (wert - i * afabetrag); // Restwert berechnen

      stgtabelle.Cells[0, i] := IntToStr (i);
      stgtabelle.cells[1, i] := floattostr (afabetrag);
      stgtabelle.cells[2, i] := floattostr (restwert);
  end;
end;

So würde ich das machen.

*** Zu langsam. xD Naja, andere Schleife. Such dir was raus! ***