Problemas com o AppyUpdate(ClientDataSet)

A minha sintaxe é a seguinte
[If CdsAtividades.UpdateStatus = usInserted Then
Begin
CdsAtividades.FieldByName ( ´CodigoEmpresa´ ).Value := FormShell.CodEmpresa ;
CdsAtividades.FieldByName ( ´CodigoAtividades´ ).Value := EditCodigo.Text ;
End ;
CdsAtividades.FieldByName ( ´Ativo´ ).Value := ´SIM´ ;
CdsAtividades.Post ;

CdsAtividades.ApplyUpdates(0);]

Qdo executa o appyupdate esta me dando o seguinte erro :

´Commands out of sinc; You can´t run this command now ;´

Se alguem puder me ajudar !!!