Fórum OnBeforePost e Excepton Não sei usar... #209278

Eu já lí que o cancelamento através do evento OBeforeOpost e só usando ´Exception´.
Sendo que não consegui utilizalo...

Aqui em baixo estão as condições para cancelar a gravação...

Verificar se esse registro já existe e se aresposta for ´Sim.´

1 - Cancelaria a gravação.
2 - Enviar uma mensagem que o registro já existe.
3 - A caixa do registro ganha-se foco para o usuário escrever outro dado.


Utilizei esse código, mas não obtive exito...
////////////////////////////////////////////
procedure TProjetoModule.IBTSociosBeforePost(DataSet: TDataSet);
var
Nome:string;
begin

Nome:= FormSocioIncluir.eDBNome.text;
if FormSocioIncluir.ibtable1.locate(´SOCIO_NOME´,NOME,[])= true then
begin
Halt;
ShowMessage(´Este cliente já existe!.´);
FormSocioIncluir.edbNome.setfocus;

end;
end.


Ass: Max...