Fórum Key Violation - Solucao com DM #265766

Bom dia!!!!!

Pesquisando no forum descobri uma maneira de que fosse traduzida a mensagem de key violation dada pelo vinicius2k que segue abaixo:

[color=green]Código:
...
var Msg: String;
begin
Msg:= ´Descrição não disponível.´;
if (Pos(´violation of PRIMARY or UNIQUE KEY´, E.Message) > 0) or
(Pos(´attempt to store duplicate value´, E.Message) > 0) then
begin
Msg:= ´A tentativa de inserção/edição iria resultar em duplicidade ´ +
´de registros nesta tabela.´;
end;
if Pos(´violation of FOREIGN KEY´, E.Message) > 0 then
begin
Msg:= ´A tentativa de atualização iria causar falhas de relacionamento, ´+
´por existirem dependencias entre as tabelas envolvidas.´;
end;
ShowMessage(E.Message + #13 + ´Descrição do Erro: ´ + 13 + Msg);
end;

[/color]

mas eu utilizo DM e ele nao reconhece o ShowMessage, alguem tem outra alternativa???? Obrigado!!!!