Markierung von Text in StringGrid-Zelle umgehen

[kiar]

hallo habe das eben ausprobiert, so bald die aktuelle zelle den focus erhält wird nur die zahl eingegeben.

wenn ich folgendes realisiere

Delphi-Quellcode:

 if (key in ['0'..'9']) and (length(SG1.Cells[2,2]) = 0) then
         SG1.Cells[2,2] := ' + ' + key
      else
         SG1.Cells[2,2] := SG1.Cells[2,2]+ key;

und eine andere zelle als 2,2 den fokus erhält geht es

raik