anchor.diff:  
   Function TPSCCustomExprEval.FindRecord(Search: TPSCSearchType): Boolean;
   Var
  -  BMark: TBookMarkStr;
  +  BMark: TBookMark;
   Begin
     Result := False;
     If Not (Assigned(DataSet) And DataSet.Active) Then
  
positive.code:             FieldType := FT_DATETIME;
            End;
          {$IFDEF D6}
          fldTIMESTAMP:
            Begin
              MyTimeStamp:=PSQLTimeStamp(Offs)^;
              Result:=VarFromDateTime(SQLTimeStampToDateTime(MyTimeStamp));
              FieldType := FT_DATETIME;
            End;
          {$ENDIF}
          fldBOOL:
            Begin
  
negative.code: 
  Uses
  {$IFDEF D6}
    //SqlTimSt,
    FMTBcd,
    variants,
  {$ENDIF}
  
    Classes,
    //DBCommon,
    DB,
    sysutils,
  
  