1:

ComboBox.Items.Text := StringList.Text                    

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  ComboBox1.Canvas.FillRect(Rect);
  if index = 3 then ComboBox1.Canvas.Font.Color:=clGray;
  ComboBox1.Canvas.TextOut(Rect.Left,Rect.Top,ComboBox1.Items[index]);
  if index = 3 then ComboBox1.Canvas.Font.Color:=clBlack;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

implementation

{$R *.DFM}

const
  Liste = '0,1,2,3,4,5,6,7,8,9';

procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.Items.CommaText := Liste;
  ComboBox2.Items.CommaText := Liste;
  ComboBox3.Items.CommaText := Liste;
end;

procedure TForm1.ComboBox1DropDown(Sender: TObject);
begin
  with ComboBox1.Items do begin
    CommaText := Liste;
    with ComboBox2 do if IndexOf(Items[ItemIndex]) > -1 then
      Delete(IndexOf(Items[ItemIndex]));
    with ComboBox3 do if IndexOf(Items[ItemIndex]) > -1 then
      Delete(IndexOf(Items[ItemIndex]));
  end;
end;

procedure TForm1.ComboBox2DropDown(Sender: TObject);
begin
  with ComboBox2.Items do begin
    CommaText := Liste;
    with ComboBox1 do if IndexOf(Items[ItemIndex]) > -1 then
      Delete(IndexOf(Items[ItemIndex]));
    with ComboBox3 do if IndexOf(Items[ItemIndex]) > -1 then
      Delete(IndexOf(Items[ItemIndex]));
  end;
end;

procedure TForm1.ComboBox3DropDown(Sender: TObject);
begin
  with ComboBox3.Items do begin
    CommaText := Liste;
    with ComboBox1 do if IndexOf(Items[ItemIndex]) > -1 then
      Delete(IndexOf(Items[ItemIndex]));
    with ComboBox2 do if IndexOf(Items[ItemIndex]) > -1 then
      Delete(IndexOf(Items[ItemIndex]));
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

implementation

{$R *.DFM}

const
  Liste = '0,1,2,3,4,5,6,7,8,9';

procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.Items.CommaText := Liste;
  ComboBox2.Items.CommaText := Liste;
  ComboBox3.Items.CommaText := Liste;
end;

procedure TForm1.ComboBox_DropDown(Sender: TObject);
begin
  if Sender is TComboBox then with TComboBox(Sender).Items do begin
    CommaText := Liste;
    with ComboBox1 do if IndexOf(Items[ItemIndex]) > -1 then
      Delete(IndexOf(Items[ItemIndex]));
    with ComboBox2 do if IndexOf(Items[ItemIndex]) > -1 then
      Delete(IndexOf(Items[ItemIndex]));
    with ComboBox3 do if IndexOf(Items[ItemIndex]) > -1 then
      Delete(IndexOf(Items[ItemIndex]));
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

1. Walze        2. Walze        3. Walze

Walze Nr. I     Walze Nr. VII   Walze Nr. V

Walze Nr. II    Walze Nr. II    Walze Nr. II
Walze Nr. III   Walze Nr. III   Walze Nr. III
Walze Nr. IV    Walze Nr. IV    Walze Nr. IV
Walze Nr. VI    Walze Nr. VI    Walze Nr. VI
Walze Nr. VIII  Walze Nr. VIII  Walze Nr. VIII                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

1. Walze        2. Walze        3. Walze

Walze Nr. III   Walze Nr. VII   Walze Nr. V

Walze Nr. I     Walze Nr. I     Walze Nr. I
Walze Nr. II    Walze Nr. II    Walze Nr. II
Walze Nr. IV    Walze Nr. IV    Walze Nr. IV
Walze Nr. VI    Walze Nr. VI    Walze Nr. VI
Walze Nr. VIII  Walze Nr. VIII  Walze Nr. VIII                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

var AlleWalzenNummern :  String = '"Walze Nr. I", "Walze Nr. II", "Walze Nr. III", "Walze Nr. IV", "Walze Nr. V", "Walze Nr. VI", "Walze Nr. VII", "Walze Nr. VIII"';

procedure TForm1.WalzenAuswahl(Sender: TObject);
var i : Integer;
begin
 AlleReflektoren := 'YRUHQSLDPXNGOKMIEBFZCWVJATFVPJIAOYEDRZXWGCTKUQSBNMHL';
 AlleWalzen := '     EKMFLGDQVZNTOWYHXUSPAIBRCJAJDKSIRUXBLHWTMCQGZNPYFVOE
                     BDFHJLCPRTXVZNYEIWGAKMUSQOESOVPZJAYQUIRHXLNFTGKDCMWB
                     VZBRGITYUPSDNHLXAWMJQOFECKJPGVOUMFYQBENHZRDKASXLICTW
                     NZJHGRCXMYSWBOUFAIVLPEKQDTFKQHTLXOCBJSPDZRAMEWNIUYGV';

 if TComboBox(Sender).Name = 'AuswahlReflektor' then
  for i := 1 to 26 do Reflektor[i] := AlleReflektoren[i + 26 * AuswahlReflektor.ItemIndex];

 if TComboBox(Sender).Name = 'AuswahlWalze1' then begin
  for i := 1 to 26 do Walze1[i] := AlleWalzen[i + 26 * AuswahlWalze1.ItemIndex];
 end;

 if TComboBox(Sender).Name = 'AuswahlWalze2' then begin
  for i := 1 to 26 do Walze2[i] := AlleWalzen[i + 26 * AuswahlWalze2.ItemIndex];
 end;

 if TComboBox(Sender).Name = 'AuswahlWalze3' then begin
  for i := 1 to 26 do Walze3[i] := AlleWalzen[i + 26 * AuswahlWalze3.ItemIndex];
 end;

end;                    

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

const
  Liste = '"Walze Nr. I", "Walze Nr. II", "Walze Nr. III", "Walze Nr. IV", "Walze Nr. V", "Walze Nr. VI", "Walze Nr. VII", "Walze Nr. VIII"';

implementation

{$R *.dfm}

procedure TForm1.WalzenDropDownListe(Sender: TObject);
begin
 with TComboBox(Sender).Items do begin
  CommaText := Liste;
  with ComboBox1 do Delete(IndexOf(Items[ItemIndex]));
  with ComboBox2 do Delete(IndexOf(Items[ItemIndex]));
  with ComboBox3 do Delete(IndexOf(Items[ItemIndex]));
 end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.WalzenDropDownListe(Sender: TObject); 
begin 
with TComboBox(Sender).Items do begin 
  CommaText := Liste; 
  with ComboBox1 do Delete(IndexOf(Items[ItemIndex])); 
  with ComboBox2 do Delete(IndexOf(Items[ItemIndex])); 
  with ComboBox3 do Delete(IndexOf(Items[ItemIndex])); 
end;                    

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

Walze Nr. I
Walze Nr. II
Walze Nr. III
Walze Nr. V
Walze Nr. VI
Walze Nr. VIII                    

1:
2:
3:
4:

AlleWalzen :  String = 'EKMFLGDQVZNTOWYHXUSPAIBRCJAJDKSIRUXBLHWTMCQGZNPYFVOE
                        BDFHJLCPRTXVZNYEIWGAKMUSQOESOVPZJAYQUIRHXLNFTGKDCMWB
                        VZBRGITYUPSDNHLXAWMJQOFECKJPGVOUMFYQBENHZRDKASXLICTW
                        NZJHGRCXMYSWBOUFAIVLPEKQDTFKQHTLXOCBJSPDZRAMEWNIUYGV'                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TForm1.WalzenAuswahl(Sender: TObject);
var i : Integer;
begin
  AlleReflektoren := 'YRUHQSLDPXNGOKMIEBFZCWVJATFVPJIAOYEDRZXWGCTKUQSBNMHL';
  AlleWalzen := 'EKMFLGDQVZNTOWYHXUSPAIBRCJAJDKSIRUXBLHWTMCQGZNPYFVOE
               BDFHJLCPRTXVZNYEIWGAKMUSQOESOVPZJAYQUIRHXLNFTGKDCMWB
               VZBRGITYUPSDNHLXAWMJQOFECKJPGVOUMFYQBENHZRDKASXLICTW
               NZJHGRCXMYSWBOUFAIVLPEKQDTFKQHTLXOCBJSPDZRAMEWNIUYGV';

  if TComboBox(Sender).Name = 'AuswahlReflektor' then 
   for i := 1 to 26 do Reflektor[i] := AlleReflektoren[i + 26 * AuswahlReflektor.ItemIndex];

  if TComboBox(Sender).Name = 'AuswahlWalze1' then begin
   for i := 1 to 26 do Walze1[i] := AlleWalzen[i + 26 * AuswahlWalze1.ItemIndex];
  end;
  if TComboBox(Sender).Name = 'AuswahlWalze2' then begin
  for i := 1 to 26 do Walze2[i] := AlleWalzen[i + 26 *  AuswahlWalze2.ItemIndex];
  end;
  if TComboBox(Sender).Name = 'AuswahlWalze3' then begin
  for i := 1 to 26 do Walze3[i] := AlleWalzen[i + 26 *  AuswahlWalze3.ItemIndex];
  end;
end;