TStringgrid Zellen sperren

[Z32]

OK jetzt kann ich das Programm compelieren, aber ich kann trotztem noch die Zelen in Spalte 1 anwählen.

Irgentwas stimmt da noch nicht so ganz, oder ich mache was falsch. Hier nochmal der Code:

Delphi-Quellcode:

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
//
CanSelect := not (ACol = 1);
//
end;

Ich möchte ereichen, das man die Zellen in Spalte 1 nicht anwählen kann, aber ist es dann nicht eigentlich ein bisschen spät den Code im OnCellSelect zu schreiben ,denn dann ist ja schon eine Zelle ausgewählt , oder?