anchor.diff:    If Assigned(FAppParams) then FAppParams.Save;
   end;
   
  -procedure TAppParam.SetParamName(const Value: AnsiString);
  +procedure TAppParam.SetAsTBytes(Bytes: TBytes);
  +begin
  +  FParamType := ptBytes;
  +  FBytesValue := Copy(bytes);
  +  FValue := 0; // Init as a Zero to set to "not null"
  +  If Assigned(FAppParams) then FAppParams.Save;
  +end;
  +
  +procedure TAppParam.SetParamName(const Value: String);
   begin
     FParamName := Value;
     If Assigned(FAppParams) then FAppParams.Save;
  
positive.code: 
  procedure TAppParam.SetValue(const Value: Variant);
  begin
    FValue := Value;
    If Assigned(FAppParams) then FAppParams.Save;
  end;
  
  
negative.code:   else begin
      case pt of
        ptString : begin
          If Internal_ReadBytes(Stream,bytes)<0 then exit;
          FValue := TEncoding.ANSI.GetString(bytes);
        end;
        ptInteger : begin
          if Stream.Read(i,sizeof(i))<sizeof(i) then exit;
  