Fórum OnValidate não cai na exceção onde errei? #183578

procedure TDM_Modelo.TabCategorSig_CategValidate(Sender: TField);
begin
if DSCategorState in [dsEdit, dsInsert] then
if TabCategorConf.FindKey([TabCategorSIG_CATEG]) then
begin
F_Categ.EditSIG_CATEG.SetFocus;
raise Exception.Create(´Sigla da categoria duplicado´#10+
´Click no botão ´Localiza´ em caso de dúvida´);
end;
end;