两个子窗口同时画曲线如何实现？

我现在的子窗口是动态创建的，而且实现了分别取自己的数据画图，之前写的时候还能同时各自画各自的图形，并且各自能够停止，现在不行了，一旦第二个开始画，第一个画图就会停止，等第二个停止了第一个才会接着画，为什么呢？{画图代码}
procedure TFmMDIChild.DrawMychart(Sender:TObject);
var
  k:Integer ;
begin
  for k:=0 to CheckTime*60 do
  begin
    if Cstop[StrToInt(Copy(Self.Caption,3,1))] then  //判断是否停止
      Break ;
    DrawChart(k,Y_show[StrToInt(Copy(Self.Caption,3,1))]);
    Sleep(500);
    Application.ProcessMessages;
  end;
  ToolButton3Click(Sender);
end;procedure TFmMDIChild.DrawChart(X:Integer;Y: Double);//画曲线
begin
  Chart.BottomAxis.Maximum:=X;
  Chart.Series[0].AddXY(X,Y);
  Chart.Refresh;
  if Tmax < Y then Tmax :=StrToFloat(Format('%.2f',[Y])); //小数点后精确两位
  if i=0 then
    Tmin :=Tmax ;
  if Tmin > Y then Tmin :=StrToFloat(Format('%.2f',[Y]));
  i:=1;
  StatusBar1.Panels.Items[3].Text:=FloatToStr(Tmax)+'/'+FloatToStr(Tmin)+'  差值:'+FloatToStr(Tmax-Tmin);
end;