Liste du materiel installé

salut a tous

j ai un petit programme trouvé sur le net et qui est censé me donner la liste du materiel installé sauf qu il n affiche rien dans le memo.
voici le programme

procedure TForm1.Button1Click(Sender: TObject);
procedure GetHardwareList(DisplayStrings : TStrings);
var
RegHKDD, RegHKLM: TRegistry;
SLKeys, SLHWL: TStringList;
i: Integer;
RegDataInfo : TRegDataInfo;
begin
try
RegHKDD := TRegistry.Create;
RegHKDD.RootKey := HKEY_DYN_DATA;
RegHKLM := TRegistry.Create;
RegHKLM.RootKey := HKEY_LOCAL_MACHINE;
SLKeys := TStringList.Create;
SLHWL := TStringList.Create;
SLHWL.Sorted := true;
if RegHKDD.OpenKey('Config ManagerEnum', false) then begin
RegHKDD.GetKeyNames(SLKeys);
for i := 0 to SLKeys.Count - 1 do
if RegHKDD.OpenKey('Config ManagerEnum' + SLKeys[i], false)then
if RegHKLM.OpenKey('Enum' + RegHKDD.ReadString('HardWareKey'), false) then
if RegHKLM.GetDataInfo('Class', RegDataInfo) then
SLHWL.Add(RegHKLM.ReadString('Class') + ': ' + RegHKLM.ReadString('DeviceDesc'));
end; {if RegHKDD.OpenKey('Config ManagerEnum', false)}
finally
SLKeys.Free;
RegHKLM.Free;
RegHKDD.Free;
end;
DisplayStrings.Assign(SLHWL);
SLHWL.Free;
end;
begin
GetHardwareList(Memo1.Lines);
end;

end.

je travail avec delphi5

comment faire pour que ca marche
merci d avance

pasco