посимвольное считывание

#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
 
AnsiString diskname,p,key=""; // переменая- буква диска
void ListFiles(AnsiString path,TStrings* List)
{
TSearchRec sr; // структура, которая хранит информацию о файле.
if (FindFirst(path+"*.*", faAnyFile, sr) == 0) //функция,начинающая поиск файлов
{
do
{
if (sr.Attr & faDirectory) // если атрибут файла-директория(папка)
{
if (sr.Name!=".")  // если название папки не "."
if (sr.Name!="..") // если название папки не ".."
{
ListFiles(path+sr.Name+"\\",List);// Рекурсивный вызов
}
}
else
{
AnsiString Ext=ExtractFileExt(sr.Name).UpperCase();
for(int i=0;i<p.Length();i++) {
    if (p[i]!=',') key=key+p[i];
    else{ if (Ext==key) List->Add(sr.Name); // добавляем файлы в список
           key="";
        };
};
}
}
while (FindNext(sr) == 0); // функция, продолжающая поиск файлов
FindClose(sr); // функция завершение поиска, освобождение памяти
}
Application->ProcessMessages(); // чтобы не зависала форма
}
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
p=Edit1->Text;
diskname = DriveComboBox1->Text.SubString(1,2);// копируем букву диска
ListFiles(diskname+"\\",ListBox1->Items);
}
//---------------------------------------------------------------------------