anchor.diff:    Result := P;
   end;
   
  -function TAppParams.IndexOfParam(const ParamName: AnsiString): Integer;
  +function TAppParams.IndexOfParam(const ParamName: String): Integer;
   begin
     for Result := 0 to FParams.Count - 1 do begin
       if AnsiSameText(ParamName,TAppParam(FParams[Result]).ParamName) then exit;
  
positive.code: 
  end;
  
  function TAppParams.FindParam(const ParamName: AnsiString): TAppParam;
  Var i : Integer;
  begin
    i := IndexOfParam(ParamName);
  
negative.code:   c : Cardinal;
    i64 : Int64;
  begin
    Internal_WriteBytes(Stream,TEncoding.ANSI.GetBytes(FParamName));
    b := Byte(FParamType);
    Stream.Write(b,1);
    if IsNull then begin
  