как открить фаил который заносится в ListBox?

filename = ListBox->Items[ListBox->ItemIndex];

 WinExec(ListBox1->Items[ListBox1->ItemIndex],SW_NORMAL);

[BCC32 Error] Unit23.cpp(27): E2034 Cannot convert 'TStrings' to 'const char *'
[BCC32 Error] Unit23.cpp(27): E2342 Type mismatch in parameter 'lpCmdLine' (wanted 'const char *', got 'TStrings')

AnsiString filename = ListBox->Items[ListBox->ItemIndex];
WinExec(filename.c_str(),SW_NORMAL);

[BCC32 Error] Unit23.cpp(18): E2285 Could not find a match for 'AnsiString::AnsiStringT(const AnsiString&)'

AnsiString filename = ListBox->Items[ListBox->ItemIndex];
WinExec(filename.c_str(),SW_NORMAL);

AnsiString filename = ListBox->Items->Strings[ListBox->ItemIndex];

void __fastcall TForm24::Button3Click(TObject *Sender)
{
 AnsiString dir = ListBox1->Items->Strings[ListBox1->ItemIndex];
WinExec(dir.c_str(),SW_SHOWNORMAL);
}

void __fastcall TForm24::Button1Click(TObject *Sender)
{
ListBox1->Items->Add(FileListBox1->FileName);
}

ListBox1->Items->Strings[0] = FileListBox1->Items->Strings[0]);
// не помню точно синтаксис для FileListBox
AnsiString dir = ListBox1->Items->Strings[0];
WinExec(dir.c_str(),SW_SHOWNORMAL);

const int iErrorCode = WinExec("calc",SW_SHOW);
 
// значит есть ошибка
if (iErrorCode>31) {
      switch (iErrorCode) {
            case 0: //The system is out of memory or resources. 
            break;
            case ERROR_BAD_FORMAT: //The .exe file is invalid.
            break;
            case ERROR_FILE_NOT_FOUND: //The specified file was not found.
            break;
            case ERROR_PATH_NOT_FOUND: //The specified path was not found.
            break;
 
            // и так далее 31 вариант, почему же файл не запустился
      }
}

ListBox1->Items->Strings[0] = FileListBox1->Items->Strings[0];
 AnsiString dir = ListBox1->Items->Strings[0] ;
ShellExecute(Handle,"open",dir.c_str(),NULL,NULL,SW_SHOWNORMAL);

UnicodeString dir = ListBox1->Items->Strings[0] ;
ShellExecute(Handle,L"open",dir.c_str(),NULL,NULL,SW_SHOWNORMAL);

const char *chFile = "1.txt";
const char *chDir = "c:\\test\\test";
char buff[MAX_PATH];
const int iFindRes = FindExecutableA(chFile,chDir,buff);
if (iFindRes>31) {
        // SUCCESS
        AnsiString sExecCommand = AnsiString(buff) + " " + IncludeTrailingBackslash(chDir) + AnsiString(chFile);
        
        const int iExecRes = WinExec(sExecCommand.c_str(),SW_SHOW);
        if (iExecRes>31) {
                  // SUCCESS
        }
}