Проверка дисков

x:=GetLogicalDrives();
if x=0 then
lst2.Items.Add('Функция GetLogicalDrives завершилась неудачей...')
else
begin
lst2.Items.Add('Локальные диски:');
 
for i:=1 to 64 do
begin
bit:=x and 1;
if bit=1 then
begin
tp:=GetDriveType(PChar(chr(64+i)+':\') + Chr(i+64)+': '+ FloatToStrF(space, ffNumber, 20, 0)); // вот здесь ошибка
 
tip:='';
if tp=0 then tip:='drive type cannot be determined';
if tp=1 then tip:='root directory does not exist';
if tp=DRIVE_REMOVABLE then tip:='Съемный диск';
if tp=DRIVE_FIXED then tip:='Локальный диск';
if tp=DRIVE_REMOTE then tip:='remote (network)';
if tp=DRIVE_CDROM then tip:='CDROM';
if tp=DRIVE_RAMDISK then tip:='RAM disk';
lst2.Items.Add(' '+chr(64+i)+': '+tip);
end;
x:= x shr 1;
end;
end;

procedure TForm1.Button5Click(Sender: TObject);
var
  BitMask   : Set of 0..25;
  DriveChar : Char;
  I  : Integer;
  St : String;
begin
  Integer(BitMask) := GetLogicalDrives;
  if Integer(BitMask) = 0 then
    Memo1.Lines.Add('Функция GetLogicalDrives завершилась неудачей...')
  else
  begin
    Memo1.Lines.Add('Локальные диски:');
    for I := 0 to 25 do
      if I in BitMask then
      begin
        DriveChar := Char(I + Ord('a'));
        case GetDriveType(PChar(DriveChar + ':\')) of
          0               : St := 'drive type cannot be determined';
          1               : St := 'root directory does not exist';
          DRIVE_REMOVABLE : St := 'Съёмный диск';
          DRIVE_FIXED     : St := 'Локальный диск';
          DRIVE_REMOTE    : St := 'remote (network)';
          DRIVE_CDROM     : St := 'CDROM';
          DRIVE_RAMDISK   : St := 'RAM disk';
        end;
        Memo1.Lines.Add(' ' + DriveChar + ': ' + St);
      end;
  end;  
end;