1:
2:
3:
4:
5:
6:

procedure ButtonMachMehrereSachenOnClick(Sender:TObject);
begin
Edit1.OnChange(Sender);
Combobox.SelectedIndexChanged(Sender);
ButtonOK.OnClick(Sender);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

for momentanerIndex:=0 to durzufuehrendesIntArray.Items.Count-1 do
 case durzufuehrendesIntArray.Items[momentanerIndex] of
  0: begin 
    //dann tue jetzt mal dieses
  end;
  1: begin 
    //dann tue jetzt mal jenes
  end;
  2: begin 
    //dann tue jetzt mal was anderes
  end;
  3: begin 
    //dann tue jetzt mal noch was anderes
  end;
 end;//der Case-Anweisung und da dieses ja die einzige Anweisung der For-Schleife ist auch dieser