Como mudar a cor de um dbText

[omor]

Como mudar a cor do DBTExt quando a quantidade for maior que zero, ele mostrar em azul e se for < 0 mostrar em vermelho?

[Jhonas]

exemplo:

procedure TForm1.DBEdit3Change(Sender: TObject);
begin

   if Query1QUANT.Value < 0 then
      DBEdit3.Font.Color := clRed
   else
      DBEdit3.Font.Color := clBlue;

end;

abraço