If Anweisungen verkleinern

[youuu]

wobei ich dann, aber wieder genauso viel Text besitze und der Code nicht wirklich kleiner geworden ist?
Oder Irre ich mich?

Delphi-Quellcode:

ComboBoxFirmenG.Text := Customer_Info[1,28];

  if Customer_Info[1,28] = 'Klein' then
    Include(Sizes, ciKlein)
  else if Customer_Info[1,28] = 'Mittel' then
    Include(Sizes, ciMittel)
  else if Customer_Info[1,28] = 'Groß' then
    Include(Sizes, ciGroß);


  if ciKlein in Sizes then
  Begin
    ComboBoxFirmenG.Items.Add('Mittel');
    ComboBoxFirmenG.Items.Add('Groß');
  End
  Else if ciMittel in Sizes then
  Begin
    ComboBoxFirmenG.Items.Add('Klein');
    ComboBoxFirmenG.Items.Add('Groß');
  End
  Else if ciGroß in Sizes then
  Begin
    ComboBoxFirmenG.Items.Add('Klein');
    ComboBoxFirmenG.Items.Add('Mittel');
  End
  Else
  Begin
    ComboBoxFirmenG.Items.Add('Klein');
    ComboBoxFirmenG.Items.Add('Mittel');
    ComboBoxFirmenG.Items.Add('Groß')
  End;

Denn es sollen ja die Items geadded werden die nicht im Feld "Customer_Info[1,28]" gespeichert sind.

Und somit habe ich wieder die nervigen If Anweisungen