problema com edicao

em minha tela de cadastro eu insiro o registro e salvo, mas ta dando um poblema quando eu coloco em modo de ediçao pois quando eu digito algo em algum campo em mando salvar novamente ela me da a seguinte mensagem:

project cadastro.exe raised exception class eoleexception with message ´erro interno de altomacao ole´

alguem pode me ajudar neste probleminha

Valeu

Neomid

procedure Tfrmcadastroveiculo.btnalterarClick(Sender: TObject);
begin
if dm.ADOtbveiculo.State in [dsedit,dsinsert] then
begin
showmessage(´O sistema já se encontra em modo´+#13+´de inserção ou edição´);
end
else
begin
dm.ADOtbveiculo.Edit;
dbedit9.SetFocus;
end;

end;

procedure Tfrmcadastroveiculo.btnsalvarClick(Sender: TObject);
begin
if dm.ADOtbveiculo.State in [dsedit,dsinsert] then
begin
if (dbedit3.Text <> ´´) and (dbedit9.Text <> ´´) then
begin
dm.ADOtbveiculo.Post;
end
else
begin
showmessage(´Os campos de marca e a data são obrigatórios´);
end;
end
else
begin
showmessage(´O dados já salvos´);
end;

end;