[@Rafa3L]

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
 with Memo1.Lines do
  begin
  //пользователь, версия ОС и т.д.
   Add(' О Системе:');
   Add(WinInfo(HKEY_LOCAL_MACHINE,WinVers,'RegisteredOwner'));
   Add(WinInfo(HKEY_LOCAL_MACHINE,WinVers,'RegisteredOrganization'));
   Add(WinInfo(HKEY_LOCAL_MACHINE,WinVers,'ProductID'));
   Add(WinInfo(HKEY_LOCAL_MACHINE,WinVers,'ProductKey'));
   Add(WinInfo(HKEY_LOCAL_MACHINE,WinVers,'ProductName'));
   Add(WinInfo(HKEY_LOCAL_MACHINE,WinVers,'Version'));
   Add(WinInfo(HKEY_LOCAL_MACHINE,WinVers,'VersionNumber'));
  end;
end;