Mit den von dir genannten Komponenten usw. kann ich zwar nichts anfangen, aber dein Problem scheint auch eher einfacher Natur zu sein.
Wenn ich dich richtig verstanden habe, willst du ja nur, entsprechend einer Feldlänge eine bestimmt Farbe darstellen. Da dir die Feldlänge irgendwie bekannt sein muss, mach dir doch eine Funktion:
Delphi-Quellcode:
function GetColorcaseoflength (Feldlength : Integer): TColor;
begin
case Feldlength of
20..30 : Result := clRed;
31..40 : Result := ...
end
end;