Ограничить символы StringGrid

[kta87]

Подскажите, как можно индивидуально для каждой ячейки StringGrid определять допустимые символы для ввода?

[Smitt&Wesson]

Через Cells и switch.

[kta87]

можно немного по подробнее... 1 пример ?
П.С. Ограничить кол-во символов удалось так

procedure TForm1.StringGrid2KeyPress(Sender: TObject; var Key: Char);
begin
 with TStringGrid(Sender) do
  begin
    if (IsCharAlphaNumeric(Key)) and (Length(Cells[1,0]) = 251) then Key:= #0;
    if (IsCharAlphaNumeric(Key)) and (Length(Cells[1,1]) = 4) then Key:= #0;
    if (IsCharAlphaNumeric(Key)) and (Length(Cells[1,2]) = 4) then Key:= #0;
    if (IsCharAlphaNumeric(Key)) and (Length(Cells[1,3]) = 4) then Key:= #0;
    if (IsCharAlphaNumeric(Key)) and (Length(Cells[1,4]) = 2) then Key:= #0;
    if (IsCharAlphaNumeric(Key)) and (Length(Cells[1,5]) = 2) then Key:= #0;
  end;
end;

с самими же символами пока проблема №1, жду ваших советов! Smitt&Wesson, распиши по подробнее...

[Пепел Феникса]

 with Sender as TStringGrid do
  begin
    if (not IsCharAlphaNumeric(Key)) or (Length(Cells[1,0]) = 251) then Key:= #0;
    if (not IsCharAlphaNumeric(Key)) or (Length(Cells[1,1]) = 4) then Key:= #0;
    if (not IsCharAlphaNumeric(Key)) or (Length(Cells[1,2]) = 4) then Key:= #0;
    if (not IsCharAlphaNumeric(Key)) or (Length(Cells[1,3]) = 4) then Key:= #0;
    if (not IsCharAlphaNumeric(Key)) or (Length(Cells[1,4]) = 2) then Key:= #0;
    if (not IsCharAlphaNumeric(Key)) or (Length(Cells[1,5]) = 2) then Key:= #0;
  end;

[kta87]

Как например вот этот код

procedure TForm1.LabeledEdit4KeyPress(Sender: TObject; var Key: Char);
begin
 if Key in ['\', '/', ':', '*', '?', '"', '<', '>', '|']then
  begin
    Key := #0;
  end;
 if Key = #13 then
  begin
     Button1.SetFocus;
  end;
end;

запрещающий ввод символов "'\', '/', ':', '*', '?', '"', '<', '>', '|'" прописать для одной из ячеек StringGrid?