[Мишка-90]

в результате оно проверяет только 1 столбец.
сделал так:

Код:

if Length(StringGrid11.Cells[j,i]) = 0 then Begin

        StringGrid11.Cells[j,i] := '0';

        StringGrid11.Col := j;
        StringGrid11.Row := i;
        break;

        ShowMessage('Пустая ячейка ');

но не всю таблицу.. и фокус мгновенно пропадает.
сообщение сделал, для того чтобы увидеть фокус (чтобы быстро всю таблицу не пробежало)