Вопрос по CanSelect для stringgrid Опции

[Yurka]

Как запретить выделение в stringgrid например второго столбца. Прбовал в обработчике и так:

procedure TForm2.SelectCell(Sender: TObject; ACol, ARow: Longint; var CanSelect: Boolean);
begin
CanSelect  := (Acol = 2);
end;

и так

procedure TForm2.SelectCell(Sender: TObject; ACol, ARow: Longint; var CanSelect: Boolean);
begin
CanSelect  := (Acol <> 2);
end;

всё равно выделяет...