Hola
Pues en delphi 7 lo que haria seria declarar un array.
Código Delphi
[-]Valores:array[No_leida..expirada]of string=('No leida','Aceptada','Rechazada,'Expirada');
Y lo usaria asi:
Código Delphi
[-]memo.Lines.Add('Estado '+ valores[result.Metadatos[i].Estado]);
Bueno no lo he probado asi que tal vez halla que hacerle unos ajustes. Pero creo que se entiende la idea.
Saludos