1:
2:
3:
4:
5:
6:
7:

procedure TForm1.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  var colum, row: Integer;
  begin
stringgrid1.MouseToCell(X, Y, colum, row);
stringgrid1.Cells[row, colum]:='X';
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

          if ACol in CheckBoxCols then begin
            DrawRect:=Rect;
            InflateRect(DrawRect,-1,-1);
            DrawState := ISChecked[StrToInt (sgSender.Cells [ACol,ARow]) = 1];
  // ^ die 0/1, die aus dem DB-Original in sgSender steht beeinflusst, ob die
  // CheckBox gecheckt ist ! D.h. sie wird im OnDrawCell je nach Wert gezeichnet !
            sgSender.Canvas.FillRect(Rect); // hinter Cells liegende 0/1 nicht anz.
            DrawFrameControl(sgSender.Canvas.Handle,DrawRect,DFC_BUTTON,DrawState);
          end					

1:
2:

const IsChecked : array[Boolean] of Integer =
      (DFCS_BUTTONCHECK, DFCS_BUTTONCHECK or DFCS_CHECKED);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

Procedure Select_Cell;
Var x_Col,y_Row :Integer;
Begin
  x_Col:=Form1.stringgrid1.Col;
  y_Row:=Form1.stringgrid1.Row;


  If x_Col = 0 Then
  Else Begin
    If Form1.stringgrid1.Cells[x_Col, y_Row]='X'
    Then Form1.stringgrid1.Cells[x_Col, y_Row]:=''
    Else Form1.stringgrid1.Cells[x_Col, y_Row]:='X';
  End;
End;