No formulário você consegue retornar o campo que esta ativo com a propriedade ActiveControl
, no seu caso ficaria mais ou menos assim:
if (cbbTipoConsultaEmAberto.ItemIndex = 5) and
((dteDataInicial.Text = ' / / ') or
(dteDataFinal.Text = ' / / ')) then
begin
if (dteDataInicial.Text = ' / / ') then dteDataInicial.SetFocus else
if (dteDataFinal.Text = ' / / ') then dteDataFinal.SetFocus;
Application.MessageBox(PChar('Combinação de Seleção Inválida!'+#13+'Campo:
'+TDBDateEdit(Self.ActiveControl.Name).Hint+
' está em branco.'),'Aviso',MB_OK+MB_ICONEXCLAMATION);
exit;
end;