anchor.diff:    fldREF = 22;
     fldTABLE = 23;
     fldDATETIME = 24;
  +
  +// Fake class for lazarus port
  +type
  +  TExprParser = class
  +    FilterData: Pointer;
  +  end;
  +  TParserOptions = integer;
   
   Type
     TPSCFilterFunc = (fUnknown,fUpper,fLower,fSubStr,fTrim,fTrimLeft,fTrimRight,
  
positive.code:         Result := TStringField.Create(Nil);
        ftLargeInt:
          Result := TIntegerField.Create(Nil);  // not TLargeInt field because it is not sup by ExprParser
        ftADT:
          Result := TADTField.Create(Nil);
        ftArray:
          Result := TArrayField.Create(Nil);
        ftReference:
          Result := TReferenceField.Create(Nil);
        ftDataSet,
        ftOraBlob,
        ftOraClob,
  
negative.code:             FieldType := FT_DATETIME;
            End;
          {$IFDEF D6}
          {fldTIMESTAMP:
            Begin
              MyTimeStamp:=PSQLTimeStamp(Offs)^;
              Result:=VarFromDateTime(SQLTimeStampToDateTime(MyTimeStamp));
              FieldType := FT_DATETIME;
            End;}
          {$ENDIF}
          fldBOOL:
            Begin
  