OneSelf

procedure TForm1.FormCreate(Sender: TObject);
var
Registry: TRegistry;
begin
{ создаём объект TRegistry }
Registry := TRegistry.Create;
{ устанавливаем корневой ключ; напрмер hkey_local_machine или hkey_current_user }
Registry.RootKey := hkey_local_machine;
{ открываем и создаём ключ }
Registry.OpenKey('software\MyRegistryExample',true );
{ записываем значение }
Registry.WriteString('MyRegName','MyRegistry Value');
{ закрываем и освобождаем ключ }
Registry.CloseKey;
Registry.Free;
end;