Fórum Ajuda urgente!!! Datas!!! #486937

procedure TForm1.verificaIdade;
begin
   {Indice da categoria novilha}
   if DBLookupComboBox.ItemIndex = 1 then //este é o seu  TDBLookupComboBox
   begin
       //esta função retorna em dias a diferença entre as duas datas
       if DaysBetween(dtDBDataNascimento.Date, now) < 365 then // A primeira é data de nascimento do animal a segunda é data corrente (hoje)
       begin
          MessageBox(0,'Este animal não tem idade o suficiente para se considerado uma novilha!', 'Cadastro de animais',0); // Exibe mensagem caso seja menor 
          DBLookupComboBox.SetFocus;// volta o foco.
       end;
   end;
end;