kleines problemchen mit CASE...OF anweisung

[Celestexvii]

hi,
hab ein kleines Problem mit meiner anweisung
An markierter stelle gibt mir das programm die fehlermeldung:
[Error] Uhotel.pas(200): Undeclared identifier: '1'
kann mir jemand helfen?
gibt es evt auch ne möglichkeit diese gesamte anweisungskette zu
verkürzen?
DANKE

Delphi-Quellcode:

Case rgsaison.ItemIndex of
        0:Case rgdauer.ItemIndex of
                0:      Case rgzimmer.ItemIndex of
                                0:zp:=50;
                                1:zp:=55;
                                2:zp:=60;
                                else
                                zp:=65;

                 1:Case rgzimmer.ItemIndex of //<-- Hier bei der 1: ist der Fehler
                                0:zp:=45;
                                1:zp:=50;
                                2:zp:=55;
                                else
                                zp:=60

                  else

                        Case rgzimmer.ItemIndex of
                                0:zp:=30;
                                1:zp:=35;
                                2:zp:=40;
                                else
                                zp:=45;


        1:Case rgdauer.ItemIndex of
                0:      Case rgzimmer.ItemIndex of
                                0:zp:=55;
                                1:zp:=60;
                                2:zp:=65;
                                else
                                zp:=70;
                1:      Case rgzimmer.ItemIndex of
                                0:zp:=50;
                                1:zp:=55;
                                2:zp:=60;
                                else
                                zp:=65;

                 else
                        Case rgzimmer.ItemIndex of
                                0:zp:=35;
                                1:zp:=40;
                                2:zp:=45;
                                else
                                zp:=50;

        else  Case rgdauer.ItemIndex of
                0:      Case rgzimmer.ItemIndex of
                                0:zp:=60;
                                1:zp:=65;
                                2:zp:=70;
                                else
                                zp:=75;
                1:      Case rgzimmer.ItemIndex of
                                0:zp:=55;
                                1:zp:=60;
                                2:zp:=65;
                                else
                                zp:=70;

                 else
                        Case rgzimmer.ItemIndex of
                                0:zp:=40;
                                1:zp:=45;
                                2:zp:=50;
                                else
                                zp:=55;
 End;

[edit=Daniel B]Delphi-Tags eingefügt. MfG Daniel B.[/edit]