Ayuda en el evento OnPostError de un ADOTable

[n03l]

hola tengo el siguiente problema en el evento OnPostError de un ADOTable

Código Delphi [-]
if (E is  EDatabaseError) then
begin
Action := daAbort;
Showmessage('Codigo Repetido'); //Aqui funciona todo bien
end else
begin
Showmessage('Codigo Cambiado con exito'); 
end

Cuando el codigo no esta repetido deberia salir Showmessage('Codigo Cambiado con exito'); pero no sale?, claro aqui yo quiero poner otras instrucciones pero para no complicar la explicacion pongo un mensaje

alguien tiene alguna idea que estoy haciendo mal?

salu2