这段循环内的代码如何优化?


 for k := i to OverLine - 1 do
///////////////////////////////////////
     begin
          i := round((k + 1 - LowerBound) * GData^.MngData.RatioH + GData^.MngData.StartT);
          while (mypt[signum][j].x < i) do
          begin
               if LineData[signum][k].MaxValue < mypt[SigNum][j].Y then LineData[signum][k].MaxValue := mypt[SigNum][j].Y;
               if LineData[signum][k].MinValue > mypt[SigNum][j].Y then LineData[signum][k].MinValue := mypt[SigNum][j].Y;
               inc(t);
               inc(j);
               if (j > high(mypt[SigNum])) then break;
          end;          if t > 0 then
          begin
               LineData[signum][k].StartLen := j - t;
               LineData[signum][k].EndLen := j - 1;
               if LineData[signum][OverLine].MaxValue < LineData[signum][k].MaxValue then LineData[signum][OverLine].MaxValue := LineData[signum][k].MaxValue;
               if LineData[signum][OverLine].MinValue > LineData[signum][k].MinValue then LineData[signum][OverLine].MinValue := LineData[signum][k].MinValue;               if (j > high(mypt[SigNum])) then break;
               t := 0;
          end;
////////////////////////////////////
     end;