problema com campos da tabela

eu preciso mostrar o seguinte que apos a data do vencimento se o pagamento nao foi efetuado no grid me mostrará ele em vermelho se já foi pago em verde. estou fazendo assim :

if Pagamentoaluno_mov_pagto_data.Value = Date then
begin
if Pagamentoaluno_mov_pagto_valor.Text = ´R$ 0,00´ then
begin
dxDbGrid7.HideSelectionColor := clred;
end
else
begin
dxDbgrid7.HideSelectionColor := clgreenmoney;
end;
end;
o erro ta no segundo if que mesmo se o valor do campo for R$0,00 ele pula direto para o else e se eu tiro o else ele me mostrar com a cor padrao do Grid.

alguem ajuda ae
Briguado