Acessar dados da máquina

procedure ListarArquivos(Path: string; Lista: TStrings); 
var 
  SR: TSearchRec; 
  Terminou: Boolean; 
begin 
  if (Path = ´´) or (Path[Length(Path)] <> ´\´) then begin
    Path := Path + ´\´;
  end;

  Terminou := FindFirst(Path + ´*.*´, faAnyFile, SR) <> 0; 
  while not Terminou do begin 

    if (SR.Attr and faDirectory) = faDirectory then begin 

      if (SR.Name <> ´.´) and (SR.Name <> ´..´) then begin

        ListarArquivos(Path + SR.Name, Lista);
      end;
    end
    else begin

      Lista.Add(Path + SR.Name); 
    end; 

    Terminou := FindNext(SR) <> 0; 
  end; 

  FindClose(SR); 
end;

var
  Lista: TStringList;
...
  // lista todos os arquivos do drive D
  ListarArquivos(´D:´, Lista);
...