[Grafrada]

Код:

begin//Распределение насыщенности
           //Otvet:= StrToFloat(eVremia.Text);
            TTek:=0;
            alfT:=1.0;
           repeat
              pVremia.Enabled:=true;
              pVremia.Visible:=true;
              Chart1.AnimatedZoom:=true;
              Chart1.AnimatedZoomSteps:=8;
              Chart2.AnimatedZoom:=true;
              Chart2.AnimatedZoomSteps:=8;
              Xfr:=dFLfr*Ttek*86400*Uo/m;
              RazrabGrafik(TTek);
              TTek:=TTek+alfT*dTras;
              eVremia.Text:=FloatToStr(Ttek);
              repaint;
              Sleep(200);
            until (TTek>Tras);
           end;
procedure TForm1.bZamedlenieClick(Sender: TObject);
  begin
    alfT:=alfT*0.5;
  end;

procedure TForm1.bUskorenieClick(Sender: TObject);
  begin
    alfT:=alfT*2;
  end;

Admin: Пользуемся тегами!

Вот у меня есть такой цикл по времени Ttek. Я хочу на форме поставить две кнопки : "Ускорить" и "Замедлить". Но процедуры друг другу не подчиняются. То есть пока не выполнится основной цикл, замедление или ускорение не происходит.