Problem mit combobox

[Hildip]

Hallo Delphi-Praxis User

hab ein kleines problem, und zwar hab ich programm code hinter ein Combobox hinterlegt.

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

... usw.

nun will ich mit einem butten deisen code aufrufen.

doch leider weiß ich nicht wie.

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject);
begin
  Case ProgressBar3.Position of
  0:  Begin
        Button4.Click;
      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;

... usw.

Warum das alles? Will von hand steuern aber auch einen automatisierten ablauf haben.

hoffe ihr versteht was ich meine...

Danke

mfg hildi