procedure TForm1.ButtonClick(Sender: TObject);

var
   reg : TRegistry;
   ts : TStrings;  
   i : integer;
begin  
   reg := TRegistry.Create;
   reg.RootKey := HKEY_LOCAL_MACHINE;  
   reg.LazyWrite := false;  
   reg.OpenKey(  
    'HARDWARE\DESCRIPTION\System\CentralProcessor',  
               false);  
     ts := TStringList.Create;  
     reg.GetValueNames(ts);  
     for i := 0 to ts.Count -1 do begin
       Memo3.Lines.Add(ts.Strings[i] +
                       ' = ' +  
                       reg.ReadString(ts.Strings[i]));  
     end;
     ts.Free;  
   reg.CloseKey;  
   reg.free;
   button4.Enabled:=false;
   button5.Enabled:=true;
   button6.Enabled:=true;
end;