Freie Laufwerksbuchstaben ermitteln?

[Salomon]

So, ich habe Duffy's Procedure etwas umgeschrieben, kann man da noch was optimieren? Evtl. sowas in die Richtung: if Drive not in Bits

Delphi-Quellcode:

// Liefert den ersten freien Laufwerksbuchstaben zurück
function Free_Drive_Letter : string;
var
  Drive: Integer;
  Bits: set of 0..25;
  gefunden : boolean;
begin
  result := '';
  gefunden := false;
  Integer(Bits) := Windows.GetLogicalDrives;
  for Drive := 0 to 25 do
  begin
     if Drive in Bits then
      else
       If gefunden = false then
        begin
         gefunden := true;
         result   := (Char(Drive + Ord('A'))+':')
        end;
  end;
end;