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;