void __fastcall TfrmVersion::OpenFile() 
{ 
    SHELLEXECUTEINFO ExVal; 
    ExVal.cbSize = sizeof(SHELLEXECUTEINFO); 
    ExVal.fMask = NULL; 
    ExVal.hwnd = NULL; 
    ExVal.lpVerb = NULL; 
    ExVal.lpFile = "TEST.exe"; 
    ExVal.lpDirectory = ExtractFilePath(Application->ExeName).c_str(); 
    ExVal.nShow = SW_SHOWNORMAL; 
    ExVal.hInstApp = NULL; 
    ShellExecuteEx(&ExVal);
}