Limite de Caracteres por célula em um StringGrid

Bom dia....

Como faço para controlar o limite de caracteres por celula em um StringGrid.

Estou usando um StringGrid para cadastro de telefone. Na Primeira coluna coloquei o tipo de telefone(comercial,fax,celular,etc) na segunda coluna o usuário vai informar o telefone referente a cada tipo.

Nessa segunda coluna queria limitar a digitação para 8 caracteres.

Segue o código:

procedure TForm.StringGridKeyPress(Sender: TObject; var Key: Char);

begin

if not (key in ['0'..'9',#8]) then

 key := #0;

 

 if not (key = #8) and (length(StringGrid.Cells[1,1]) >= 8) then

 key := #0;

 

 if not (key = #8) and (length(StringGrid.Cells[1,2]) >= 8) then

 key := #0;

 

 if not (key = #8) and (length(StringGrid.Cells[1,3]) >= 8) then

 key := #0;

 

 if not (key = #8) and (length(StringGrid.Cells[1,4]) >= 8) then

 key := #0;

end;

Desse jeito consigo digitar os 8 caracteres apenas na primeira celula.

Grata,

Cris