TObjectState = (
  stClosed,
  stOpen,
  stConnecting,
  stExecuting,
  stFetching
);

enum TObjectState {
  stClosed,
  stOpen,
  stConnecting,
  stExecuting,
  stFetching
};