Как узнать, находится ли дискета в дисководе?

Code:

function DiskInDrive(const Drive: char): Boolean;

var

DrvNum: byte;

EMode: Word;

begin

result := true; // было false

DrvNum := ord(Drive);

if DrvNum >= ord('a') then

   dec(DrvNum, $20);

EMode := SetErrorMode(SEM_FAILCRITICALERRORS);

try

   while DiskSize(DrvNum - $40) = -1 do

   begin // при неудаче выводим диалог

     if (Application.MessageBox('Диск не готов...' + chr(13) + chr(10) +

       'Повторить?', PChar('Диск ' + UpperCase(Drive)), mb_OKCANCEL +

       mb_iconexclamation {IconQuestion}) = idcancel) then

     begin

       Result := false;

       Break;

     end;

   end;

finally

   SetErrorMode(EMode);

end;

end;