If Anweisungen verkleinern

[youuu]

Hi,
kann mir jemand einen Tipp geben wie ich diesen Quelltext verkleinern kann.
Ich empfinde diesen Code nicht sonderlich schön.

Delphi-Quellcode:

if Customer_Info[1,28,1] = 'Klein' then
    Begin
      ComboBoxFirmenG.Items.Add('Mittel');
      ComboBoxFirmenG.Items.Add('Groß');
    End
    Else if Customer_Info[1,28,1] = 'Mittel' then
    Begin
      ComboBoxFirmenG.Items.Add('Klein');
      ComboBoxFirmenG.Items.Add('Groß');
    End
    Else if Customer_Info[1,28,1] = 'Groß' 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;