[ferget]

мы получаем полное имя файла, а нам нужно без расширения »

так и получаем без расширения
вот проверил

Код:

     TSearchRec sear;
      AnsiString  FileNoExt;
      AnsiString Path="E:\\Books\\Test\\ForBuilder\\temp";

     if(FindFirst(Path +"\\"+ "*.txt", faAnyFile, sear) == 0)
    {
        do
        {
           FileNoExt = ChangeFileExt( sear.Name, " " );
           LogMemo->Lines->Add(FileNoExt);
        }
        while(FindNext(sear) == 0);
    }

    FindClose(sear);