Mensaje clave repetida

[Luis Castillo]

Que tal mis amigos.....


Tengo un pequeño problema que creo que no les costara trabajo responderme.

EStoy trabajando en una base de datos en Paradox y ya sabemos lo que pasa cuando insertamos la llave primaria repetida: 'KEY VIOLATION' o cuando dejamos de insertar un campo declarado como repetido.

El caso es que deseo poner mi mensaje y dependiendo de la tabla.

Yo consulte el siguente codigo para el evento OnPostError:

Código Delphi [-]
 procedure TDM.TTrabajadorPostError(DataSet: TDataSet; E: EDatabaseError;
 var Action: TDataAction);
 begin
   if (E is EDBEngineError) then
   Begin
     case (E as EDBEngineError).Errors[0].Errorcode of
       DBIERR_REQDERR: ShowMessage('Hace falta un valor necesario');
       DBIERR_KEYVIOL: ShowMessage('clave repetida para tabla...');
     Else
       Exit
     end;{case}
     action := daAbort;
   End;{if}
 end;

Pero no me esta funcionando porque me sale el mismo mensaje en ingles.

Que puede estar pasando?