Rave cambiar color a un rectangulo

[jupehe]

Ya consegui que lo hiciera de una manera que me facilita lo que necesito

Código Delphi [-]
If DataView1campo.AsString='valordelcampo'  THEN
   rectangle1.fillcolor:=clRed;
 end if;

todo lo que habeis puesto me valia, pero de esta manera y teniendo que controlar varios coleres, me ha sido mas facil.

Gracias a todos por vuestra ayuda, que me ha sido de mucha utilidad. Un saludo