Delphi dicas

Dbnavigator verificando campos necessarios antes de executar acao

Procedure TProdutos.DBNavigatorinformacoesClick(Sender: TObject;

Button: TNavigateBtn);

begin

        if Button=nbpost then begin

                if edit1.Text=''then begin

                        showmessage('Atenção, preencha os campos necessários');

                        DBNavigatorinformacoes.BtnClick(nbcancel);

                end;

        end;

end;