Es funktioniert...
Echt noch mal danke für eure Hilfe und danke für den Hinweis.
Dieses Forum ist echt zu empfehlen, schon mein 2. problem wurde gelöst. Ihr seid echt spitze!!!
Der Quelltext lautet:
if (0<=stuck) and (stuck<100) then rabatt:=0;
if (100<=stuck) and (stuck<500) then rabatt:=0.05;
if (500<=stuck) and (stuck<=1000) then rabatt:=0.10;
if (1000<=stuck) and (stuck<=1500) then rabatt:=0.15 ;
if (1500<=stuck) and (stuck<2000) then rabatt:=0.20 ;
if (2000<=stuck) then rabatt:=0.30;