If Anweisungen verkleinern

[youuu]

Habe nun:

Delphi-Quellcode:

type
  TCustomerInfoSize = (ciKlein, ciMittel, ciGroß);

.
.
.

case Customer_Info[1,28,1] of
    ciKlein: begin
      ComboBoxFirmenG.Items.Add('Mittel');
      ComboBoxFirmenG.Items.Add('Groß');
    end;
    ciMittel: begin
      ComboBoxFirmenG.Items.Add('Klein');
      ComboBoxFirmenG.Items.Add('Groß');
    end;
    ciGroß: begin
      ComboBoxFirmenG.Items.Add('Klein');
      ComboBoxFirmenG.Items.Add('Mittel');
    end;
end;

Alleridngs kommt da: "Inkompatible Typen: Integer und TCustomerInfoSize"