C_FD_PhysRDBMSKinds function DateValueToFDSQLStringProc(ADataSet: TDataSet; AValue: Variant): String;begin  Result := DateValueToDataBaseSQLString(    C_FD_PhysRDBMSKinds[TFDAdaptedDataSet(ADataSet).PointedConnection.RDBMSKind], AValue);end; xe7 Fire…