[ecfisa]

Hola Parsec.

Primero que nada gracias por publicar como lo solucionaste

Otra opción es usando RTTI, ejemplo:

Código Delphi [-]
...
uses TypInfo;

...
begin
  with DBGrid2.DataSource do
    ShowMessage(GetEnumName(TypeInfo(TDataSetState), Ord(DataSet.State)));
end;

Saludos