function UncrypStr(const __src, __key: string): string;var  nKeyLen, nKeyPos, nOffSet,  nSrcPos, nSrcAsc, nTmpSrcAsc: Integer;  sDest, sSrc, sKey: AnsiString;begin  sSrc := AnsiString(__src);  sKey := AnsiString(__key);  nKeyLen := Length(sKey);  if nKeyLen = 0 then sKey := 'tigercat';  nKeyPos := 0;  nOffSet := S

删除 C:Users用户名AppDataRoamingModelMakerToolsSharedTemplates_Index.dat

在工程文件的属性中设置如下：

Project > Options > Delphi Compiler> Compiling > Other Options .Add -LUDesignIDE to the Additional Options field.在属性配置里填写 -LUDesignIDE 就好了