du definierst dein Customer-Info nicht als string, sondenr machst eine eigene Enum dafür...
Delphi-Quellcode:
type
TCustomerInfoSize = (ciSmall, ciMedium, ciLarge)
Oder wie du es eben brauchst
und dann kannst du einfach case...of verwenden:
Delphi-Quellcode:
case Customer_Info[1,28,1] of
ciSmall: begin ... end;
ciMedium: begin ... end;
ciLarge: begin ... end;
end;