procedure TForm1.StringGrid1SelectCell(Sender: TObject; aCol, aRow: Integer; var CanSelect: Boolean);begin if (aCol = 1) and (aRow = 1) then CanSelect := False;end;