ключ Windows

reg.Openkey('...tot razdel...', true);
s1:=readstring(perviy klyuc)
s2:=readstring(vtoroy klyuc)
i.t.d

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Registry, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 procedure GetOwnerAndCompanyName(var sOwner, sProductId: string);
 var
   reg: TRegistry;
   vi: TOSVersionInfo;
   sWindows: string;
 begin
   reg      := TRegistry.Create;
   sWindows := '\Windows\';
   try
     vi.dwOSVersionInfoSize := SizeOf(vi);
     getversionex(vi);
     reg.RootKey := HKEY_LOCAL_MACHINE;
     if (vi.dwPlatformId = VER_PLATFORM_WIN32_NT) then sWindows := '\Windows NT\';
     if reg.OpenKey('Software\Microsoft' + sWindows + 'CurrentVersion', False) then
     begin
       // Name
      sOwner := reg.ReadString('RegisteredOwner');
       // ProductId
      sProductId := reg.ReadString('ProductId');
     end;
   finally
     reg.Free;
   end;
 end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
   sOwner, sProductId: string;
 begin
   GetOwnerAndCompanyName(sOwner, sProductId);
   Edit1.Text := sOwner;
   Edit2.Text := sProductId;
end;
 
end.