La modifique tal y como me dijistes a mis necesidades y funciona perfectamente. Es lo que deseaba. Muchiisimas gracias.
procedure TNetDrive.GetDriversList(StrList: TStringList);
var
DriveNum: Integer;
DriveChar: Char;
DriveBits: set of 0..25;
begin
StrList.Clear;
Integer(DriveBits) := GetLogicalDrives;
for DriveNum := 0 to 25 do
begin
if not (DriveNum in DriveBits) then
Continue;
DriveChar := Char(DriveNum + Ord('a'));
StrList.Add(DriveChar + ':');
end
end;