[nixon232]

Есть кусок типа:

Код:

function DecryptFileToStream( srcFN,K: string;var Dest: TStrings;bk:TKeyBit)
     : Boolean;
  var
    fs: TFileStream;
    ds: TStream ;
  begin
    try
      fs:=TFileStream.Create( srcFN, fmOpenRead );
      ds:=TMemoryStream.Create;
      Result:=DecryptStream( fs, K,
        ds, bk );
      if Result then
      begin
        Dest.LoadFromStream( ds );
      end;
    finally
      fs.Free;
      ds.Free;
    end; // try

  end;

и вызов его:

Код:

  var
    s  : string;
    ini: TMemIniFile;
    DecINI: TStrings;
  begin
    DecINI:=TStringList.Create;
    s:=ExtractFilePath( Application.ExeName )+ 'data.pfr';
    DecryptFileToStream( s,'11', DecINI,kb256);
     
    ini:=TMemIniFile.Create( '' );
    ini.SetStrings( DecINI );

и

Код:

function fn8(s:string): Boolean ;
   var
      decr:TStrings;
    ini:TMemIniFile;
    reg:TStrings;
    IK,INa,IM:string;
  begin
  try
    Result:=False;
    decr:=TStringList.Create;
    result:=DecryptFileToStream(s,'66',decr,kb256);
  ini:=TMemIniFile.Create('');
    ini.SetStrings(decr);

Первый вызов работает, а второй возвращает пустой стринглист (не ошибку). Разве тут есть различия? что не так?
Данные и файл верны.