RAD Studio TDataSet

TDataSet* pTable = ...;
TADODataSet* pDataSet = dynamic_cast<TADODataSet*> (pTable);
if (pDataSet  && pDataSet->CommandType == cmdText) 
{
  OutputDebugString(pDataSet->CommandText.c_bcstr());
}

TADOQuery* pQuery= dynamic_cast<TADOQuery*> (pTable);
if (pQuery)
{
    OutputDebugString(pQuery->SQL->Text.c_bcstr());  
}

Ayrıca

OutputDebugString (pTable->Fields->Fields[n]-FieldName.c_str());