Почему при выполнении следующего кода выдается ошибка с кодом 126 , но при этом rtf-файлы нормально открываются Word-ом?


void __fastcall TForm1::PrintRtfFiles()
{
ShowMessage(" запускаем автооткрытие ");
AnsiString rtfFileName=inDir+"\\*.rtf";
ShowMessage(rtfFileName);
TSearchRec aFileInfo;
//распечатываем файлы.rtf
if (FindFirst(rtfFileName,faAnyFile,aFileInfo)==0) //да, если найден файл по маске
{
do
{
ShowMessage(" открываем файл "+inDir+slesh+aFileInfo.Name);
ShellExecute(Handle,"open",(inDir+slesh+aFileInfo.Name).c_str(),NULL,NULL,SW_SHOW);
int i=GetLastError();
if (i!=0)
ShowMessage(" Ошибка. Ее код "+IntToStr(i));
}
while (FindNext(aFileInfo)==0);
}
}