Listenindex Überschreitet das Maximum (3)

[Demon666]

Hi leute
Ich hab ein Problem. Wenn ich mein Programm starte bekomme ich die Meldung "Listenindex Überschreitet sein Maximum (3)". Ich poste mal einfach den Teil meines Quellcodes den ich geschrieben hab bevor der Fehler aufgetreten ist.

Delphi-Quellcode:

Case FormOptionen.RGSymbol.ItemIndex of
      0: begin
        BtOeffnen.Glyph.loadfromfile('Bilder\Öffnen.bmp');
         BtOeffnen.Caption:='Öffnen';
         BtSpeichern.Glyph.loadfromfile('Bilder\Speichern.bmp');
         BtSpeichern.Caption:='Speichern';
         BtDrucken.Glyph.loadfromfile('Bilder\Drucken.bmp');
         BtDrucken.Caption:='Drucken';
         FormOptionen.RGSymbolPosition.enabled:=true;
         case FormOptionen.RGSymbolPosition.ItemIndex of
          0: begin
             BtOeffnen.layout:=blGlyphTop;
             BtSpeichern.layout:=blGlyphTop;
             BtDrucken.layout:=blGlyphtop;
             end;//von 0
          1: begin
             BTOeffnen.layout:=blGlyphBottom;
             BtSpeichern.layout:=blGlyphBottom;
             BtDrucken.layout:=blGlyphBottom;
             end;//von 1
          2: begin
             BTOeffnen.layout:=blGlyphRight;
             BtSpeichern.layout:=blGlyphRight;
             BtDrucken.layout:=blGlyphRight;
             end;//von 2
          3: begin
             BtOeffnen.layout:=blGlyphLeft;
             BtSpeichern.layout:=blGlyphLeft;
             BtDrucken.layout:=blGlyphLeft;
             end;//von 3
          end;//von case (Symbol-Position)
          end; //von 0
        1:Begin
          Btoeffnen.Glyph:=nil;
          BtOeffnen.Caption:='Öffnen';
          BtSpeichern.Glyph:=nil;
          BtSpeichern.Caption:='Speichern';
          BtDrucken.Glyph:=nil;
          BtDrucken.Caption:='Drucken';
          FormOptionen.RGSymbolPosition.Enabled:=false;
          end; //von 1
        2:begin
          BtOeffnen.Glyph.LoadFromFile('Bilder\Öffnen.bmp');
          BtOeffnen.Caption:='';
          BtSpeichern.Glyph.loadfromfile('Bilder\Speichern.bmp');
          BtSpeichern.Caption:='';
          BtDrucken.glyph.loadfromfile('Bilder\Drucken.bmp');
          BtDrucken.Caption:='';
          end; //von 2

          end; //von case

Dnake schonmal im Vorraus