[NIch]

Попробуй так...

Код:

function Disk(Drive : Char) : Boolean;
begin
 try
    Drive := UpperCase(Drive);
    Result := DiskSize(ord(Drive) - $40) <> -1;
 except
  Result := false;
end;