error 'Key violation'

[Ksiopea]

Hola a todos, es la primera vez que entro acá y no se si lo estoy haciendo correctamente. mi consulta es la siguiente: estoy haciendo una aplicación en delphi y me genera un error de 'key violation' el procedimiento que tengo es el siguiente:

Código Delphi [-]
procedure TForm15.Table1PostError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
begin
If e is EDBEngineError then
If EDBEngineError(e).Errors[0].ErrorCode = DBIERR_KEYVIOL then
DataBaseError('El código ya existe');
end;

lo he usado varias veces y funciona correctamente, pero, ahora tengo instalado windows 7 y he tenido algunos problemas con delphi, lo extraño es que con el win 7 genera el error y se cuelga la aplicación, pero el mismo ejecutable lo corro en otra pc con xp y funciona correctamente. alguien podra ayudarme y decirme si hay algún codigo que se estará manejando distinto en win7 o que podra ser el error. DESDE YA MUCHAS GRACIAS A TODOS.