delphi如何调用该过程？

Question

一个过程：
procedure EnumLogicalDrivers(Strings:TStrings);
  var
    BufLen:Integer;
    Buf:pchar;
    pDrive:pchar;
  begin
    BufLen:=GetLogicalDriveStrings(0,nil);
    GetMem(Buf,BufLen+1);
    Try
    GetLogicalDriveStrings(BufLen,Buf);
    pDrive:=Buf;
    while pDrive^<>#0 do
    begin
       Strings.Add(StrPas(pDrive));
       inc(pDrive,4);
    end;
    finally
    FreeMem(Buf,BufLen+1);
  end;
如何显示结果呢？

Answer 1

var
  str: TStrings;
begin
  EnumLogicalDrivers(str);
end;