Du solltest dir zuerst die mathematischen Formeln und Hintergründe aneignen:
http://de.wikipedia.org/wiki/Annuit%C3%A4tendarlehen
Dann solltest du diese Formeln als Delphi Funktionen in den Sourcecode aufnehmen.
function berechneAnuitaet(S0, i:Extended; n : integer):Extended;
Ist dir aufgefallen, dass du sehr oft Folgendes geschrieben hast: ?
floattostrf(x,fffixed,10,2)
Daraus kann man (sollte man !!) ebenfalls eine Funktion machen.