Delphi-Quellcode:
IF Zahl1 <= 66.67 THEN begin ErstattungsbetragLbl.caption := ' Der Schaden kann leider nicht bezahlt werden!' ;
IF Zahl1 < 0 THEN BEGIN ErstattungsbetragLbl.caption := ' Der Schaden kann nicht im "-" bereich stehen !'
Besser: Im Deklarationsteil
Delphi-Quellcode:
var s:string;
.. und dann
IF Zahl1 <= 66.68 THEN
begin
str(Erstattungsbetrag:8:2,s);
ErstattungsbetragLbl.caption := s;
end