CREATE PROCEDURE dbo.GetCaptionOfColumn  @TableName varchar( 50 ),@Name varchar( 50 )
 AS
select value from ::fn_listextendedproperty
 ('MS_Description', 'user', 'dbo', 'table',@TableName, 'column',@Name)
GO

void __fastcall TPriceListAgro::FormCreate(TObject *Sender)
{
int i, colcount;
colcount = DBGrid1->Columns->Count;
MTODm->aspRetCopCap->Parameters->Clear();
MTODm->aspRetCopCap->Parameters->AddParameter();
MTODm->aspRetCopCap->Parameters->Items[ 0 ]->DataType = ftString;
MTODm->aspRetCopCap->Parameters->Items[ 0 ]->Direction = pdInput;
MTODm->aspRetCopCap->Parameters->Items[ 0 ]->Name =  "@TableName" ;
MTODm->aspRetCopCap->Parameters->Items[ 0 ]->Value =  "ProdPrice" ;
MTODm->aspRetCopCap->Parameters->AddParameter();
MTODm->aspRetCopCap->Parameters->Items[ 1 ]->DataType = ftString;
MTODm->aspRetCopCap->Parameters->Items[ 1 ]->Direction = pdInput;
MTODm->aspRetCopCap->Parameters->Items[ 1 ]->Name =  "@Name" ;
for (i =  0 ;i != colcount; i++)
    {
    MTODm->aspRetCopCap->Parameters->Items[ 1 ]->Value = DBGrid1->Columns->Items[i]->FieldName;
    MTODm->aspRetCopCap->Open();
    MTODm->aspRetCopCap->First();
    DBGrid1->Columns->Items[i]->Title->Caption = WideToAnsi(MTODm->aspRetCopCap->FieldByName( "value" )->Value);
    MTODm->aspRetCopCap->Close();
    }
MTODm->aspRetCopCap->Parameters->Clear();
}