problem solved !!!

void TfrmCTdir::SetCaption(void) {
unsigned long lSize;
unsigned int iLen;
char *pValue, *pBuf, *pKey, *sFile = Application->ExeName.c_str();
lSize = GetFileVersionInfoSize( sFile, &lSize );
if( lSize > 0 ) {
pValue = (char*) malloc(1024);
pKey = (char*) malloc(1024);
pBuf = (char*) malloc(lSize);
GetFileVersionInfo( sFile, 0, lSize, pBuf );
if( VerQueryValue( pBuf, "StringFileInfo\\040904E4\\FileVersion"
, (void**) &pValue, &iLen ) ) {
sprintf( pBuf, "CTdir version %s", pValue );
this->Caption = pBuf;
}
free( pValue );
free( pKey );
free( pBuf );
} else {
Application->MessageBox("Version information not found","CTdir error", MB_OK + MB_ICONERROR );
}
}