Vamos ver como detectar cruzamento de valores em geral.

Código:

var
valor : Real;

Inicio

// valor := MediaExp(21, Fechamento);
valor := 97450;

// 1a Forma
// Se (Fechamento > valor) entao PaintBar(clVerde)
// Senao Se (Fechamento < valor) entao PaintBar(clVermelho);

// 2a Forma
Se ( (Abertura < valor) e (Fechamento > valor)) entao PaintBar(clVerde)
Senao Se ( (Abertura > valor) e (Fechamento < valor) ) entao PaintBar(clVermelho);

Fim;

Execução

Exemplo:

Para testar, adicione o código como uma regra de coloraçao