Проверка наличия CD привода

int cold = 0; 
 TStringList * cdDiskList = new TStringList; 
  int t; 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int BufferSize = GetLogicalDriveStrings(0, NULL);
char *Buffer = new char[BufferSize];
TStringList * DiskList = new TStringList;
 
GetLogicalDriveStrings(BufferSize, Buffer);
 
 
int DiskCount = (BufferSize - 1) / 4;
cold = DiskCount;
 
for(int i = 0; i < DiskCount; i++)
    {
    char DiskString[4];
    CopyMemory(DiskString, (Buffer + i * 4), 4);
    DiskList->Add(DiskString);
    AnsiString DiskName = DiskList->Strings[i];
    //Memo1->Lines->Add(DiskName);
    int DriveType = GetDriveType(DiskName.c_str());
 
       if(DriveType == DRIVE_CDROM)
        {
        Memo1->Lines->Add("есть");
        cdDiskList->Add(DiskList->Strings[i]+"\\");
        }
    }
delete [] Buffer;
delete DiskList;
t = cdDiskList->Count;
}