뭐 간단하게 만들었습니다.
지가요. 년식이 올되다보니 예전꺼 밖에 모른다는 ㅎㅎㅎ

모든 디스크 드라이브의 Path알아오는 방법입니다.

Function GetLogicalDrive(StrList: TStrings): Integer;
var
  I, iT: Integer;
  drv: Array [0 .. 255] of char;
  sDrv: String;
begin
  FillChar(drv, 256, #0);
  iT := GetLogicalDriveStrings(256, drv  );

  for I := 0 to iT - 1 do
  begin
    if drv[I] = #0   then
    begin
      StrList.Add(sDrv  );
      sDrv := '';
    end
    else
      sDrv := sDrv + drv[I];
  end;
  Result := StrList.Count;
end;

사용법은
GetLogicalDrive( ListBox1.Items );

간단하죠? 참고만 하시기 바랍니다.