간단하게 드라이브 목록 가져오기

uses
  .., System.Types, System.IOUtils;
  
var
  DriveList: TStringDynArray;
  Drive: string;
begin
  DriveList := TDirectory.GetLogicalDrives;
  
  for Drive in DriveList do
    Memo1.Lines.Add(Drive);
end;