Длина строки в TStringGrid

[Vova777]

Как ограничить число вводимых пользователем символов в ячейку компонента TStringGrid ?
что-то такого типа:

  Length(StringGrid1.Cells[ACol,ARow]):= 5;  // это не работает !

[Stilet]

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
 with TStringGrid(Sender) do
 if IsCharAlphaNumeric(key) and (Length(Cells[Row,Col])>=5) then key:=#0;
end;