[amadis]

Estos ejemplos que da la ayuda ¿no estan trabajando con string?

Código Delphi [-]
// Other examples of case statements:

case MyColor of
  Red: X := 1;
  Green: X := 2;
  Blue: X := 3;
  Yellow, Orange, Black: X := 0;
end;
case Selection of
  Done: Form1.Close;
  Compute: CalculateTotal(UnitCost, Quantity);
else
  Beep;
end;