procedure WriteRegKeyString(Param_RootKey: HKey; Param_CurrentKey, Param_KeyItem, Param_KeyString: String); var MyRegistry: TRegistry; begin MyRegistry := TRegistry.Create; with MyRegistry do begin RootKey := Param_RootKey; if OpenKey(Param_CurrentK