как всем edit'ам сразу присвоить одно максимальное колличество вводимых символов?

[Алексей_2012]

здравствуйте, у меня есть сетка из эдитов, их штук 100, мне нужно сделать так, чтобы в каждый едит можно было вводить только один символ (создаю кроссворд). Для каждого писать этот код долго, поэтому может быть есть более лучший способ это сделать?

edit1.maxlength:=1;

[_SERGEYX_]

var i: Integer;
begin
  for i := 0 to ComponentCount - 1 do
    if (Components[i] is TEdit) then
      (Components[i] as TEdit).maxlength:=1;
end;

[Serge_Bliznykov]

мне нужно сделать так, чтобы в каждый едит можно было вводить только один символ (создаю кроссворд).

к слову, а не лучше ли воспользоваться компонентом StringGrid ? (он, конечно, хитровымученный, но сотню эдитов вполне может заменить

[Алексей_2012]

спасибо, уже осваиваю