procedure TObjEditForm.ValueListEditor1DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
const
  clPaleGreen = TColor($CCFFCC);
  clPaleRed =   TColor($CCCCFF);
  clPaleWhite = TColor($FFFFFF);
begin
 
    if (ACol = 1) and (ARow > 0) then
    begin
        if (CorrectValues[ARow] = 1) then
             ValueListEditor1.Canvas.Brush.Color := clPaleGreen
        else
            if (CorrectValues[ARow] = 0) then
                ValueListEditor1.Canvas.Brush.Color := clPaleRed
            else
                ValueListEditor1.Canvas.Brush.Color := clPaleWhite;
        ValueListEditor1.Canvas.FillRect(Rect);
        ValueListEditor1.Canvas.TextOut(Rect.Left + 1, Rect.Top + 1, ValueListEditor1.Cells[Acol, Arow]);
    end;
end;