reg_key = StringReplace(reg_key, "\\Registry\\Machine", "", (TReplaceFlags) rfReplaceAll);

위 소스를 요렇게 바꿔 보시죠....
reg_key = StringReplace(reg_key, "\\REGISTRY\\Machine", "", TReplaceFlags()<<rfReplaceAll);