function IsEditState(DataSet: TDataSet): Boolean; begin with DataSet do Result := (State in [dsInsert, dsEdit]); end;