Delphi - pasar de [goEditing] a [goRowSelect]

Muchas Gracias por la ayuda, funciona perfectamente. Y si no es mucha molestia, tengo otro pequeño problema.
Quiero usar usar este StringGrid para introducir datos tambien, y la idea es que:
cuando este en una fila del grid con datos introducidos activo el goRowSelect, pero cuando selecciono cualquier otra fila sin datos lo pongo en goEditing.

Lo que hago es lo siguiente, NumRegistros es una variable donde llevo el numero de Registros introducidos.

procedure TForm1.GridSelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
if (ARow>NumRegistros) then
Grid.Options:=Grid.Options-[goRowSelect]+[goEditing]
else
Grid.Options:=Grid.Options+[goRowSelect];
end;

El problema surge cuando pasa de haber estado en una celda activa con [goEditing] a una celda con [goRowSelect]. el cambio no se produce instantaneamente, sino que se produce a la segunda pulsacion en otra celda con [goRowSelect]

¿A que se debe esto? ¿Como lo puedo solventar?

Muchas Gracias.