Restringir caracteres en un StringGrid

Esta función sirve para limitar (¿o debería decir restringir?) caracteres en un StringGrid, una vez que lo hice me di cuenta de que en el evento OnGetEditMask la cosa sería aparentemente mucho más sencilla pero como ya lo había hecho naturalmente no iba a tirar mi trabajo a la basura. Lo que la función hace es que solo permite la introducción de números enteros y retroceso (la tecla que se usa para borrar) y que la longitud del texto solo sea de 4 bits (como si se usase la propiedad Maxlength de un Edit).

Código:
void __fastcall TForm1::filtro_int_grid(TStringGrid * grid,char &Key)
{
char caracter=Key;
//formato: 9999
if((caracter=='\b') || (caracter=='\t'))
Key=caracter;
else
{
int longitud;
longitud=grid->Cells[grid->Col][grid->Row].Length();
if(longitud>=4)
Key=NULL;
else
{
if((caracter>='0')&& (caracter<='9'))
Key=caracter;
else
{
Key=NULL;
ShowMessage("Solo caracteres númericos (enteros).");
}
}
}
}
//---------------------------------------------------------------------------

Y la form de usarlo:
Form1->filtro_int_grid(StringGrid1,Key)
en el OnkeyPress del StringGrid.