Выход из условия, не покидая цикл

procedure TForm1.btn_step_chClick(Sender: TObject);//сохраняет массив степеней
var
  i: Integer;
begin
  //memo1.Lines.Add('m:'+inttostr(m));
 
  for i:=1 to m do step_ch[i]:=strtoint(StringGrid1.Cells[i,1]);
  label5.Visible:=true;
  StringGrid2.Visible:=true;
  StringGrid2.Enabled:=true;
  btn_koef_ch.Enabled:=true;
  //вписываем названия колонок в грид2 для коэффициентов
  vvod_koef_grid(StringGrid2, step_ch, m);
  btn_step_ch.Enabled:=false;
  //for i:=1 to m do memo1.Lines.Add('stepen ch:'+inttostr(step_ch[i]));
end;
 
procedure TForm1.vvod_koef_grid(Grid:TStringGrid;step:mas_step;m_n:integer);//формирует количество колонок и их названий в Гриде2.
var i:integer;
begin
  i:=1;
  for i:=1 to m_n do
  begin
    if step[i]=2 then
      begin
        Grid.ColCount:=4;
        Grid.Cells[1,0]:='T2';
        Grid.Cells[2,0]:='T1';
        Grid.Cells[3,0]:='K';
      end;
    if step[i]=1 then
      begin
        Grid.ColCount:=3;
        Grid.Cells[1,0]:='T1';
        Grid.Cells[2,0]:='K';
      end;
    if step[i]=0 then
      begin
        Grid.ColCount:=2;
        Grid.Cells[1,0]:='K';
      end;
  end;
  //for i:=1 to 3 do AutoSizeGridColumn(StringGrid2, i);
end;
 
//следующие две процедуры - для сохранения  коэффициентов из грид2 в массив a[i,j]
procedure TForm1.btn_koef_chClick(Sender: TObject);
var i, j:integer;
begin
  if koef_ch<m then//счетчик.Изначально равен 0.
  begin
    StringGrid2.Cells[0,1]:='Сомножитель'+ inttostr(koef_ch);
    koef(koef_ch, a, StringGrid2, m);
    koef_ch:=koef_ch+1;
    if m=koef_ch then
      begin
        btn_koef_ch.Enabled:=false;
        //for i:=0 to m-1 do
          //for j:=1 to 3 do
            //memo1.Lines.Add(floattostr(a[i, j]));
      end;
  end;
end;
 
procedure TForm1.koef(k: integer; var mas:mas_koef; StringGrid:TStringGrid; m_n:integer);
var j:integer;
begin
  for j:=1 to stringGrid.ColCount-1 do
      begin
        mas[k, j]:=strtofloat(StringGrid.Cells[j, 1]);
        if k<m_n-1 then
        StringGrid.Cells[j, 1]:='';
      end;
end;