gleiche farben in tcolor abfangen

[track]

wir haben also eine auswahl auf dem formular
http://img107.imageshack.us/img107/4...benannt4tt.jpg

und eine konstante für dern hintergrund der canvas fläche!

die frage ist nun: wie fang ich es ab dass Mindestens eine der 2 Farben (Randfarbe und Füllfarbe) ist ungleich der Hintergrundfarbe der Zeichenfläche (einstellbar).
hab das so versucht aber irgendwie kalppt das nich wirklich

Delphi-Quellcode:

function ColorTest(PenColor, BrushColor : TColor):boolean;
begin
  if (PenColor = cHintergrundFarbe) and (BrushColor  = cHintergrundFarbe) then
      ColorTest := true;  
end;

und dann

Delphi-Quellcode:

If ColorTest(ClBox_Pen.Selected, ClBox_Back.Selected)= false then
    
     PB_Bild.Canvas.Pen.Color := ClBox_Pen.DefaultColorColor; //Randfarbe
     PB_Bild.Canvas.Brush.Color := ClBox_Back.DefaultColorColor; //Fullfarbe

der zeichnet zwar mit der standart eingestellten farbe, aber ich hätte es besser das er garnet zeichnen würde!
wäre es möglich?