bloquear celdas en un stringgrid

[ciscu]

Hola a todos !!!

Me gustaría saber como poder bloquear una celda determinada de un stringgrid, es decir, que no me deje editar el contenido de la celda y el cursor no entre en dicha celda

Gracias de antemano

[Descendents]

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
 if (acol = 2) and (arow = 1) then
   StringGrid1.Options :=StringGrid1.Options-[goediting]
 else
   StringGrid1.Options :=StringGrid1.Options+[goediting];
end;

A ver si esto te va bien

Saludos