delphi 自带的dbgrid表格控件增加下选框

在表格里用combobox很正常

自带的dbgrid加也很方便，环境是xe10  

procedure TfrmBaseInfo.LoadDesk;
var
  ssql: string;
  i: Integer;
  column: TColumn;
begin
  ssql := 'select * from desk_info ';
    qry_desk.Connection := dmMain.FDConnection1;
    qry_desk.Close;
    qry_desk.SQL.Clear;
    qry_desk.SQL.Text := ssql;
    qry_desk.Open();
   column := DBGrid3.Columns.Items[2];
   for I := 1 to qry_desk.RecordCount  do
   begin
     qry_desk.RecNo := i;
     column.PickList.Add(qry_desk.FieldByName('desk_name').asstring);
   end;


end;