Delphi - Verificar se o ClientDataSet esta em modo inserção ou edição

Primeiro criamos uma função

function EdicaoOuInsercao(DataSet : TDataSet) : Boolean;

Nela colocamos o codigo

function TfrmCadOS.EdicaoOuInsercao(DataSet: TDataSet): Boolean;
begin
Result := DataSet.State in dsEditModes;
end;

E em um botão no evento onClick

procedure TfrmCadOS.Button1Click(Sender: TObject);
begin
if EdicaoOuInsercao(Colocar o ClientDataSetAqui) then
ShowMessage('O Dataset está em edição ou inserção!')
else
begin
ShowMessage('O Dataset NÃO está em edição ou inserção!')
end;

Serve para mostrar o estado do seu ClientDataSet - Serve também para quando se tem mais de 1 ClientDataSet