Tratamiento de constantes

[apicito]

Gracias bitbow.
No había trabajado nunca con este tipo de datos y me estaba volviendo loco.
Ahora lo entiendo:

         case result.Metadatos[i].Estado of
             EstadoTipo.NO_LEIDA: Estado := 'NO_LEIDA';
             EstadoTipo.ACEPTADA: Estado := 'ACEPTADA';
             EstadoTipo.RECHAZADA: Estado := 'RECHAZADA';
             EstadoTipo.EXPIRADA: Estado := 'EXPIRADA';
         end;

Un saludo.