Hola.
Esto tendría que funcionarte:
Código Delphi
[-]
procedure TForm1.StringGrid2Enter(Sender: TObject);
begin
StringGrid2.Col:= StringGrid2.FixedCols + 1;
end;
procedure TForm1.StringGrid2SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
...
begin
...
if ACol = StringGrid2.FixedCols then
CanSelect:= False;
...
end;
Saludos.