Cambiar Opciones en un StringGrid

[elcigarra]

Estimados, utilizo Delphi 7

Estoy teniendo un problema que parece más un bug que un error mío. Uds. dirán.

Tengo un StringGrid que como opciones utiliza goRowSelect=True y goEditing =False excepto en una columna.

Para esto utilizo el código:

procedure TForm1StringGrid1SelectCell(....
begin
  if ACol=1 then
    StringGrid1.Options := StringGrid1.Options - [goRowSelect] + [goEditing]
  else
    StringGrid1.Options := StringGrid1.Options + [goRowSelect] - [goEditing];
end;

Funciona bien, excepto porque si estoy en una celda editable y hago click en otra que no pertenece a las columnas editables, la primera vez puedo editar. Si vuelvo a hacer click no, pero el primer click afuera me permite editar la celda.

Insolitamente corriendo el debugger pasa por la linea que cambia las opciones a no editable pero es como si no hiciera caso hasta que hago click de nuevo

Pruébenlo y díganme si le encuentran solución aunque sea con un artilugio tramposo o haciendo este efecto de otra forma.