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