Переход в следующую ячейку в StringGrid

[artemavd]

Как сделать условие, что "если ячейка не пустая(введена одна буква), то курсор переходит в следующую по счету ячейку"? . А то обламывает каждый раз Tab нажимать. Код клавиши Tab - #9.

[Neeter]

Вот:

procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer;
  const Value: string);
begin
 if ACol <> StringGrid1.ColCount - 1 then
  StringGrid1.Col := ACol + 1
 else
 begin
  StringGrid1.Col := 0;
  if ARow <> StringGrid1.RowCount - 1 then
   StringGrid1.Row := ARow + 1
  else
   StringGrid1.Row := 0;
 end;
end;

[artemavd]

Neeter, чтобы я без Вас делал . Спасибо)

[vnutr]

а что если введено 8 символов?