Código Delphi [-]if (DataSet.State in [dsEdit, dsInsert]) then ...
if (DataSet.State in [dsEdit, dsInsert]) then ...