procedure GetAllDLL(var DLLList:TStringList);
var
 i:integer;
 tList:TStringList;
 ArrInfo:TLpModuleInfoArray;
begin
 tList:=TStringList.Create;
 ArrInfo:=GetAllProcessesInfo(false);
  for i:=0 to Length(ArrInfo)-1 do
   begin
     GetLoadedDLLList(tList,ArrInfo[i].ModulePID,[moIncludeHandle]);
     DLLList.AddStrings(tList);
   end;
   tList.Free;
end;

 // пример использования:

procedure TForm1.Button1Click(Sender: TObject);
var
 ntDLLList:TStringList;
begin
ntDLLList:=TStringList.Create;
GetAllDLL(ntDLLList);
ListBox1.Items:=ntDLLList;
ntDLLList.Free;
end;