program Project1;
uses
  registry;
var
  reg: TRegistry;
const
HKEY_CURRENT_USER     = $80000001;
begin
reg:=tregistry.create;
   reg.rootkey:=hkey_current_user;
   if reg.openkey('software\My Project', true) then
   begin
       reg.WriteString('parameter', 'value');
       reg.closekey;
   end;
   reg.free;
end.