ajuda com o application events

estou tentando tratar um erro de violação de chave unica

procedure TFrmCadastro_Usuario.ApplicationEvents1ActionExecute(
Action: TBasicAction; var Handled: Boolean);
begin
if pos(upperCase('unique key constraint'), UpperCase(E.Message)) > 0 then
begin
beep;
showmessage('Usuário já existe no cadastro.');
Exit;
end;
end;


o delphi está reclamando desse (E.message)