problemas con el cuadro Color.Dialog

[snowlis]

Lo uso aquí :

Código Delphi [-]
procedure TForm13.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
const
 clPaleGreen = Tcolor($CCFFCC);
 clPaleRed = TColor($CCCCFF);
 clPaleYellow= TColor($FFFF00);
begin
if column.Field.DataSet.FieldByName('HECHO').AsString='NO'
 then
  if (gdFocused in State)
   then dbgrid1.Canvas.brush.Color:=clblack
    else
     dbgrid1.Canvas.brush.Color:=clPalered;
dbgrid1.DefaultDrawColumnCell(rect,datacol,column,state);

if column.Field.DataSet.FieldByName('HECHO').AsString='SI'
then
  if (gdFocused in State)
   then dbgrid1.Canvas.brush.Color:=clblack
    else
     dbgrid1.Canvas.brush.Color:=clPaleGreen;
dbgrid1.DefaultDrawColumnCell(rect,datacol,column,state);

if column.Field.DataSet.FieldByName('PRIORIDAD').AsString='URGENTE'
then
  if (gdFocused in State)
   then dbgrid1.Canvas.brush.Color:=clblack
    else
     dbgrid1.Canvas.brush.Color:=clPaleYellow;
dbgrid1.DefaultDrawColumnCell(rect,datacol,column,state);

end;