Zitat:
Bitte helft mir.
Um zu helfen fehlt uns eine Fehlerbeschreibung, wenn wir nicht wissen was nicht geht, können wir auch nicht helfen das zu beheben.
Ansonsten schonmal ein paar Kleinigkeiten:
Für Quelltexte gibt es hier passende Code-Tags, wie z.B. [delphi] (der Button mit dem roten Delphi-Helm).
Zitat:
if 0<=stuck<100 then rabatt:=0
if (0 <= stuck) and (stuck < 100) then rabatt:=0
.
dann fehlen in dem Code einige
;
oder ein paar
else
.