if (dbedit1.Text = '') or (dbedit2.Text = '') or (dbedit3.Text = '') or (dbedit4.Text = '') or (dbedit5.Text = '') or (DBLookupCombobox1.Text = '') or (DBLookupCombobox2.Text = '') then
 Showmessage('Preencha todos os campos.');
if (Datamodule1.Tprodutos.locate('Cod', DBEDIT1.Text, [])) then
    begin
      ShowMessage('Este Codigo ja existe.');
    end
    else
     datamodule1.TProdutos.Append;