Ezer megoldás van a kislemezes lekérdezésre, de itt a legszebb kódot teszem közzé function DiskInDrive(Drive: Char): Boolean;
  var ErrorMode: Word;
begin
   if Drive in ['a'..'z'] then Dec(Drive, $20);
   if not (Drive in ['A'..'Z']) then
   raise EConvertError.Create(Format('Nem érvényes meghajtó: %s',[Drive]));
   ErrorMode := SetErrorMode(SEM_FailCriticalErrors);
   try { 1 = a, 2 = b, 3 = c, stb... }
     Result := DiskSize(Ord(Drive) - $40) <> -1;
   finally
     SetErrorMode(ErrorMode);
   end; end;

Function meghívása:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if diskindrive('a') then caption:='van' else caption:='nincs';
end;
Megjegyzés: Ezt minden meghajtóval meg lehet játszani:

B:\  =>>  if diskindrive('b') then caption:='van' else caption:='nincs'; 
D:\  =>>  if diskindrive('d') then caption:='van' else caption:='nincs'; 
E:\  =>>  if diskindrive('e') then caption:='van' else caption:='nincs'; 
és így tovább...