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