StringGrid Опции

[Tan]

Вечер добрый! Что - то я не смог найти свойство, которое устанавливает максимальную вместимость ячейки StringGrid (просто надо сделать, чтобы в ней хоранился только 1 символ). Выручайте

[Гость]

procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,
  ARow: Integer; const Value: String);
begin
  if Length(Value) > 1 then StringGrid1.Cells[ACol, ARow] := Value[1];
end;