Цикл в цикле, Прерывание Опции

[BananaMan]

k:=0;
 for i:=1 to m do
  for j:=1 to n do
   if (StringGrid1.Cells[j,i]='')or(StringGrid2.Cells[j,i]='') then
    begin
     inc(k);
     break;
    end;
 if k<>0 then ShowMessage('матрицы имеют незаполненные ячейки')

вопрос:
если у меня условие выполняется, как прервать оба цикла сразу?

[hardcase_offline]

вопрос:
если у меня условие выполняется, как прервать оба цикла сразу?

type
  Interruption = class(TObject)
  end;

try
 for i:=1 to m do
  for j:=1 to n do begin
	 if Condition then raise Interruction.Create;
  end;
except
  on Interruption do  ShowMessage('Прерывание цикла')
end;