Warum soll man denn überhaupt zulassen, dass ungültige Zeichen eingegeben werden können ?
Fang die doch gleich vorher ab.
Delphi-Quellcode:
procedure Tfrm.sgKeyPress(Sender: TObject; var Key: Char);
begin
ZulZeichen := [#8,#13,#27,'0'..'9'];
with Sender as TExtStringGrid do begin
if key in ZulZeichen then begin