When TDbGrideh draws column information, specifying a column is the writing method of the check box

procedure TFmExchangeAuditing.InitColumn;
var
i,j:integer;
begin
  DbGrid1.SumList.Active:=False;
  DBGrid1.Columns.BeginUpdate;
  try
    for i:=0 to dbgrid1.Columns.Count-1 do
    begin
      for j:=low(ColumnsInfo) to high(ColumnsInfo) do
      begin
        if dbgrid1.Columns[i].FieldName=ColumnsInfo[j].strFldName then

        begin

//Set the specified column to be a checkbox

          if (ColumnsInfo[j].strFldName = 'FLAG') and (g_SQLType = 'ORACLE') then
          begin
            dbgrid1.Columns[i].Checkboxes := True;
            dbgrid1.Columns[i].KeyList.Clear;
            dbgrid1.Columns[i].KeyList.Add('1');
            dbgrid1.Columns[i].KeyList.Add('0');
            dbgrid1.Columns[i].ReadOnly:=True;
          end;
          dbgrid1.Columns[i].Visible:=ColumnsInfo[j].isShow;
          dbgrid1.Columns[i].Title.Caption:=ColumnsInfo[j].strFldDisplay;
          dbgrid1.Columns[i].Width:=ColumnsInfo[j].intWidth;
          if ColumnsInfo[j].isSum then
          begin
            dbgrid1.Columns[i].Footer.FieldName:=dbgrid1.Columns[i].FieldName;
            dbgrid1.Columns[i].Footer.ValueType:=fvtSum;
          end;
          break;
        end;
      end;
    end;
    FormaGrid;
  finally
    DBGrid1.SumList.Active:=True;
    DBGrid1.Columns.EndUpdate;
  end;
end;