Incluir Mensagem no Codigo de Consulta

Boa Tarde,

Estou Desenvolvendo um form para consultar todos os Agendamentos cadastrados em um determinado periodo. No form contem 2 componentes TdateEdit onde digito a data inicial e a final e consulta no intervalo e exibe o resultado.

Esta funcionando, porem, preciso de uma auxilio para colocar uma mensagem no Codigo abaixo, informado que nao tem agendamentos cadastrado para aquele periodo, caso o resultado seja vazio. segue o codigo:

procedure TFormAgendaPeriodo.btnRelatClick(Sender: TObject);
begin
DMCliente.QConsAgendaPer.Close;
DMCliente.QConsAgendaPer.ParamByName(''DATAINI'').AsDate := StrToDate(DateEditIni.Text);
DMCliente.QConsAgendaPer.ParamByName(''DATAFIM'').AsDate := StrToDate(DateEditFim.Text);
DMCliente.QConsAgendaPer.Open;
end;

DATA INI e DATA FIM são paramentros passado no SQL do componente TZQuery