var
Check: Integer;
R: TRect;
begin
if Column.FieldName = 'NOME DA COLUNA' then //Nome da coluna que vai receber o CheckBox
begin
dbgrid1.Canvas.FillRect(Rect);
Check := 0;
if ( Condicao ) then //Condição utilizada para determinar se o CheckBox deve estar marcado
Check := DFCS_CHECKED
else
Check := 0;
R:=Rect;
InflateRect(R,-2,-2); //Diminui o tamanho do CheckBox
DrawFrameControl(dbgrid1.Canvas.Handle,R,DFC_BUTTON, DFCS_BUTTONCHECK or Check);
end;
end;