Listar unidades disponibles con Filtro

[[cHackAll]]

Lo mismo que lo tuyo:

Código Delphi [-]
procedure GetDrives;
var Drive: Char;
begin
 for Drive := 'A' to 'Z' do
  begin
   if GetDriveType(PChar(Drive + ':\')) in [DRIVE_REMOVABLE, DRIVE_CDROM, DRIVE_RAMDISK] then
    Form1.Memo1.Lines.Add(Drive + ':');
   end;
end;

No entiendo lo que quieres concretamente. tu mismo te respondiste!