Tstring grid evitar seleccion de celda

[DarkBlue]

no he podido hacer que la primera columna no se pueda seleccionar pues cuando le doy click a la columna se selecciona y puedo empezar a escribir, despues que sale el foco de esa celda y selecciono otra ya no la puedo seleccionar(que es lo que quiero).Lo que quiero es que no se pueda seleccionar desde el inicio del programa mi codigo es el siguiente

Código Delphi [-]
procedure TForm1.StringGrid2SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
var si:boolean;
    bb,aa:integer;
    puntero:tpoint;
begin

if acol=0 then
begin

canselect:=true;
stringgrid2.OnSelectCell(stringgrid2,acol+1,arow+1,canselect);
canselect:=false;

//stringgrid2.OnSetEditText(stringgrid2,acol+1,arow+1,stringgrid2.Cells[acol+1,arow+1]);
end




end;

muchas gracias por sus esfuerzos para ayudarme, que les valla bonito