Mensagem de Erro ao Gravar cadastro no banco mas grava

Bom dia,

Sou novo em programação, meu conhecimento é básico. Estou tentando gravar um registro no banco de dados e ocorre a seguinte mensagem: CdsClientes: dataset no in edit or insert mode. Porém o registro é gravado. Gostaria de saber como resolvo para retirar essa mensagem.

No meu form tenho um botao de insert com o seguinte código:

dm.cdsclientes.insert;
DBnome.SetFocus;

Tenho um botão de gravar com o seguinte código:
procedure TFrameCadClientes.SBGravarClick(Sender: TObject);
var
vCodigo : integer;
begin
if dm.CdsClientes.State in [dsinsert] then
with dm.sp_Clientes do
begin
Prepared := true;
ExecProc;
Prepared := False;
Vcodigo :=ParamByName ('ID').Value;
close;
dm.cdsclientes.fieldbyname('codigo').AsInteger := vcodigo;
dm.cdsclientes.Post;
dm.cdsclientes.ApplyUpdates(0);
end;
begin
dm.cdsclientes.Post;
dm.cdsclientes.ApplyUpdates(0);
end;
end;

Sendo que utilizo uma trigger no banco para criar um codigo novo para o cliente:
AS
BEGIN
if (inserting) then
IF (NEW.CODIGO IS NULL) THEN
NEW.CODIGO = GEN_ID(GEN_CLIENTES_ID,1);
END

Preciso que o Botão Gravar grave registro novos e também atualize registro existentes. Ele está fazendo normal só que essa mensagem: CdsClientes: dataset no in edit or insert mode. fica aparecendo.

desde já agradeço a atenção.