Erro ao editar dado salvo

Bom gente eu to com um erro na hora de editar um aquivo salvo
quando eu mando editar e clico em salvar do o erro que segue no link abaixo a sua imagem
http://www.sendspace.com/file/7229ub

abaixo o codigo que uso no botão de editar
//Abilitando componetens do DM
DMBD.CdsCadastroCliente.Active := true;
DMBD.SQLCadastroCliente.Active := true;

//Alterando Registro salvo no Banco
if(DMBD.CdsCadastroCliente.IsEmpty) or
(DMBD.CdsCadastroCliente.State in [dsInsert]) then
exit
else
begin
DMBD.CdsCadastroCliente.Edit;
end;

Abaixo o codigo usado no botão de salvar
//Abilitando e desabilitando componemtes do DM
DMBD.CdsCadastroCliente.Active := True;
DMBD.SQLCadastroCliente.Active := true;


//Salvando Registro
if (DMBD.CdsCadastroCliente.IsEmpty) and
(DMBD.CdsCadastroCliente.State in [dsBrowse]) then
exit
else
begin
DMBD.CdsCadastroCliente.Post;
DMBD.CdsCadastroCliente.ApplyUpdates(-1);
end;

eu uso Delphi7, dbexpress e Firebird