Problem mit combobox

[Hildip]

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject); 
begin 
  Case ProgressBar3.Position of 
  0:  Begin 
        Button4.Click;   //Funktioniert
      end; 
  2:  Begin 
        ComboBox1.ItemIndex:=1; //wenn ich das mach setzt er nur den wert, also in dem fall auf aus. Aber führt nicht die aktionen aus die ich hoben hab. 
        ComboBox2.ItemIndex:=1; 
      end;

Aber leider war das keine antwort auf meine frage...

Delphi-Quellcode:

procedure TForm1.ComboBox1Change(Sender: TObject); 
Var I:Integer; 
begin 
case ComboBox1.ItemIndex of 
  0:  begin 
        ClearDigitalChannel(1); 
        Progressbar2.Min:=0; 
        Progressbar2.Max:=100000; 
        for I:=0 to 100000-1 do 
        begin 
          Progressbar2.Position:=I; 
        end; 
        Case Combobox2.ItemIndex of 
        0:  begin 
              BG.Picture.Bitmap.LoadFromFile('WinCC Tunnelprojektierung_bearbeitet.bmp'); 
            end; 
        1:  begin 
              BG.Picture.Bitmap.LoadFromFile('WinCC Tunnelprojektierung_Weströhre.bmp'); 
            end; 
        else 
        begin 
          BG.Picture.Bitmap.LoadFromFile('WinCC Tunnelprojektierung_Weströhre.bmp'); 
        end; 
        end; 
      end; 
  1:  begin

gedacht war das ich diesen teil mit

ComboBox2.ItemIndex:=1;
ausführ aber das geht nicht.