klappt sowieso alles nicht, was ihr hier vorschlagt. Irgendwann sind alle drei shapes sichtbar. Entweder vor dem Case alle Shapes erstmal unsichtbar machen, oder gleich so::
Delphi-Quellcode:
Shape1.Visible := (e < 50);
Shape2.Visible := not Shape1.Visible and (e < 70);
Shape3.Visible := not (Shape2.Visible or Shape3.Visible);
Fur e = 0..49 ist S1 an, S2 (wg Not S1) Aus und S3 auch (wg. S1 = True)
Fur e = 50..69 ist S1 aus, dafür S2 an und S3 nicht.
Sonst ist S1 aus, S2 auch, aber nun ist S3 an.
(Hoffentlich ist das jetzt hier richtig, sonst mach ich mich noch zum Horst)