Delphi中根据配置文件显示中英文信息

//写入信息

function WriteRegs(frm:TForm):boolean;
var
 wIni:Tinifile;
 i:integer;
begin
 wIni:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'RegDesc.ini');
 for   i:=   componentcount-1   downto   0   do
    begin
        if   IsPublishedProp(frm.Components[i],   'Caption')   then
             Wini.WriteString(frm.Name,frm.Components[i].Name,GetPropValue(components[i],'caption',false));
    end;
end;

//读取显示信息
function ReadRegs(frm:TForm):boolean;
var
 rIni:Tinifile;
 i:integer;
begin
 rIni:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'RegDesc.ini');
 for   i:=   componentcount-1   downto   0   do
    begin
        if   IsPublishedProp(Self.Components[i],   'Caption')   then
          begin
              SetPropValue(Self.Components[i],'Caption',rIni.ReadString(self.Name,Self.Components[i].Name,''));
          end;
    end;
end;