DWORD  dwSize;
DWORD  dwZero;
char*  szVer1;
char*  szVer2;
void*  lpBuf = 0;

dwSize = GetFileVersionInfoSize(Application->ExeName.c_str(),&dwZero);
szVer1 = new char[dwSize];
ZeroMemory(szVer1, dwSize);
GetFileVersionInfo(Application->ExeName.c_str(), 0, dwSize, szVer1);
VerQueryValue(szVer1, "\\StringFileInfo\\041904E3\\FileVersion",&lpBuf, (UINT*)&dwSize);
szVer2 = new char[dwSize];
lstrcpyn(szVer2, (char*)lpBuf, dwSize);
delete [] szVer1;
lblVersion->Caption = (String)"Version "+szVer2; // это TLabel в моем
                                                 // приложении
delete [] szVer2;