Tratar Exception da Classe TDBXError

Uso banco de dados SQL com DBExpress.

Como faço para tratar esse erro:
[b:1a550d63fd]Project Sis.exe raise exception class TDBXError with message ´SQL State: 01000, SQL Error: 3621
The statemente has been terminate.
SQL State: 23000, SQL Error Code: 2601
Canno insert duplicate key row in object ´dbo.DBCLIFOR´ with unique index ´IX_DBCLIFOR´.[/b:1a550d63fd]

Normalmente eu coloco em um ApplicationEvents assim:
if pos(upperCase(´must have a value´), UpperCase(E.Message)) > 0 then
begin
beep;
P1:=Pos(´´´´, E.Message);
mensagemerro:= E.Message;
delete(mensagemerro, p1, 1);
P2:=Pos(´´´´,mensagemerro);
mensagemerro:=copy(e.Message, p1 + 1, p2 - p1);
showmessage(´O campo [´+ mensagemerro + ´] é de preenchimento obrigatório.´);
end;

Agora esse erro não estou conseguindo tratar.

Alguem pode me ajudar.

Obrigado.