How To Read Registry For Show Information

// how to read
procedure Form1_OnShow (Sender: string; Action: string);
var
   reg: TRegistry;
begin
     reg := TRegistry.Create;
     reg.Access := KEY_READ;  // KEY_ALL_ACCESS    req. administrator's rights
     reg.RootKey := HKEY_LOCAL_MACHINE;

     if reg.OpenKey('HARDWARE\DESCRIPTION\System\CentralProcessor\0', false) then
     begin
         if reg.ValueExists('ProcessorNameString') then Form1.Edit1.Text := reg.ReadString('ProcessorNameString');
     end
         else ShowMessage('Can''t open the key.');

     reg.CloseKey;                     
     reg.Free;
end;


// how to write
procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
   reg: TRegistry;
begin
     reg := TRegistry.Create;
     reg.Access := KEY_WRITE;
     reg.RootKey := HKEY_LOCAL_MACHINE;
     if reg.OpenKey('HARDWARE\DESCRIPTION\System\CentralProcessor\0', false) then
     begin
         reg.WriteString('ProcessorNameString', Form1.Edit1.Text);
     end
         else ShowMessage('Can''t open the key to write data.');

     reg.CloseKey;
     reg.Free;
end;