anchor.diff:      function ToString(): string; override;
     end;
   
  +  {$REGION 'Documentation'}
  +  ///	<summary>
  +  ///	  Base SQL builder.
  +  ///	</summary>
  +  {$ENDREGION}
     TAnsiSQLBuilder = class(TInterfacedObject, ISQLBuilder)
     private
       FSQLStmtType: TSQLStatementType;
  
positive.code:     function Table(const ATablename: string): ISQLBuilder; virtual;
    end;
  
    TTransactSQLBuilder = class(TAnsiSQLBuilder)
    protected
      procedure AppendTop(ABuilder: TStringBuilder); override;
  
negative.code: 
    TSQLStatementType = (stSelect, stInsert, stUpdate, stDelete);
  
    {$REGION 'Documentation'}
    ///	<summary>
    ///	  Base SQL statement type.
    ///	</summary>
    {$ENDREGION}
    TSQLStatement = class
    private
      FOwner: TAnsiSQLBuilder;
  