¿Codigo para mostrar los componentes del equipo?

[pokexperto1]

Hola a todos, os queria hacer una pregunta, hay algun codigo para obtener los nombres de los componentes del equipo (Procesador, targeta grafica, placa base)
Que muestre la información como cuando ejecutas el dxdiag y lo guardas en un txt.
Que sea mas o menos así:

Código Delphi [-]
uses shellapi;
procedure Tform1.Button1Click(Sender: TObject);
var
inf:  string; 
begin 
inf:= (datos de una llamada al dxdiag o algo similar, el  comando que no se) 
memo1.lines.add(inf); 
with savedialog1 do
if execute  then 
begin memo1.lines.savetofile(Filename); 
end; 
end;

Creeis que en un String me caben todos los datos o no?