[Assistant]

тогда убери break; фокус будет пропадать из-за ShowMessage, тогда сделай за место ShowMessage так, убери break; и:
перед циклом

Код:

Memo1.Lines.Clear;

в цикле:

Код:

Memo1.Lines.Add('Пустая ячека ' + IntToStr(j) + ', ' + IntToStr(i);