用DELPHI实现文件加密压缩

用DELPHI实现文件加密压缩(11)            //将解码信息读入INI流中
           inistream.CopyFrom(OutStream,FileSize);
           //释放INI文件流
           inistream.Free ;
           //读入INI文件信息
           inifile:=TINIFILE.Create(ExtractFilePath(paramstr(0))+'tmp.in_');
           resultvalue:=inifile.ReadBool('file1','isjm',false);
           if resultvalue then
           begin
              if inifile.ReadString ('file1','passWord','')=trim(passWord) then
              resultvalue:=true
              else
              resultvalue:=false;
           end
           else
           resultvalue:=true;

           if resultvalue then
           begin

              filestream_ok:=TFileStream.create(ExtractFilePath(paramstr(1))+inifile.ReadString('file1','filename','wnhoo.zzz'),fmCreate);