function TFDDataSet.PSUpdateRecord(AUpdateKind: TUpdateKind; ADelta: TDataSet): Boolean;
  ...
begin
  ...
    case AUpdateKind of
    ukModify:
      if LocateRecord then begin
        Edit;
        CopyRecordBase(ADelta, True);
        Post;
        Result := True;
    end;
  ...  
end;

procedure TSQLResolver.GenUpdateSQL(Tree: TUpdateTree; SQL: TStrings;
  Params: TParams; Alias: string);
  ...  
  SQL.Add(string.Format(' %s%s%s%1:s = EMPTY_BLOB(),', [PSQLInfo(Tree.Data).QuotedTableDot,          { Do not localize }
	 PSQLInfo(Tree.Data).QuoteChar, Field.Origin]));  
  ...
end;

function TFDDatSRow.CompareData(AColumn: Integer; ABuff1: Pointer;
begin
  ...
  dtBCD,
  dtFmtBCD:
    begin
      Result := BcdCompare(PBcd(ABuff1)^, PBcd(ABuff2)^); 
      if Result > 0 then
        Result := 1
      else if Result < 0 then
        Result := -1
      else
      begin
        E := GetBCDDiff(ABuff1, ABuff2);
        if E > 0.0000000000001 then
          Result := 1
        else if E < -0.0000000000001 then
          Result := -1
        else
          Result := 0;
      end;
    end;
  ...
end;

CREATE TABLE Z_MASTER (
  MASTER_ID NUMBER(10, 0),
  NAME      VARCHAR2(255 CHAR),
  CONSTRAINT PK_Z_MASTER_MASTER_ID PRIMARY KEY (MASTER_ID)
)

CREATE TABLE Z_DETAIL (
  DETAIL_ID NUMBER(10, 0),
  MASTER_ID NUMBER(10, 0),
  BLOB_DATA BLOB,
  NAME      VARCHAR2(255 CHAR),
  CONSTRAINT PK_Z_DETAIL_DETAIL_ID PRIMARY KEY (DETAIL_ID)
)