cadastrar hora do ponto dependendo do horário.

Boa tarde estou fazendo um cadastro simples de ponto somente para adquirir conhecimento. O que eu gostaria é que dependo do horário o sistema gravasse no banco e desse uma mensagem ex:

Bom dia São 8:00. Seu Ponto foi registrado com sucesso.

Bom Almoço 12:00 Seu Ponto foi registrado com sucesso.

Boa Tarde 13:30. Seu Ponto foi registrado com sucesso.

Bom Descanso. Seu Ponto foi registrado com sucesso.

Estou usando este código e está cadastrando corretamente por enquanto. Não estou conseguindo finalizar esta parte, se alguém puder ajudar agradeço.

Obs: Delphi + Banco Access + ADO

// Se Login estiver ok
// Cadastra Ponto no Banco
with dm.qryPonto do begin

Close;
SQL.Clear;
SQL.Text := 'INSERT INTO ponto (codigofun_pon, data_pon, incluidoem_pon, responsavel_pon) VALUES (:codigofun_pon, :data_pon, :incluidoem_pon, :responsavel_pon)';
Parameters.ParamValues['codigofun_pon'] := dm.qryLogin.FieldByName('codigo_fun').AsInteger;
Parameters.ParamValues['data_pon'] := dataAtual;
Parameters.ParamValues['incluidoem_pon'] := dataAtual + ' ' + horaAtual;
Parameters.ParamValues['responsavel_pon'] := dm.qryLogin.FieldByName('login_fun').AsString;
ExecSQL;
end;