Mal wieder probleme mit der registry

[GuenterS]

Delphi-Quellcode:

procedure ReadInfoFromRegistry;
var
  lReg: TRegistry;
  lOSName, lVersion, lUser, lOrg, lServicePack: string;
begin
  lReg := TRegistry.Create(KEY_READ);
  try
    lReg.RootKey := HKEY_LOCAL_MACHINE;
    if (lReg.OpenKeyReadOnly('SOFTWARE\Microsoft\Windows NT\CurrentVersion')) then
    try
      lOSName := lReg.ReadString('ProductName');
      lVersion := lReg.ReadString('CurrentVersion');
      lUser := lReg.ReadString('RegisteredOwner');
      lOrg := lReg.ReadString('RegisteredOrganization');
      lServicepack := lReg.ReadString('CSDVersion');
    finally
      lReg.CloseKey;
    end;
  finally
    lReg.Free;
  end;
  Memo1.Lines.Add('OS: ' + lOSName + ' ' + lVersion + ' +++ ' + lUser + ' - ' + lOrg + ' +++ ' + lServicepack + ' +++ ');
end;

[Edit]Zu langsam[/Edit]