----------< ＰＧソース開始 >----------
for k := 1 to 10 do begin
  // エラーがなくなるまでループ...時々10回になるが、エラー回避で次回まわしでOK
  try
    if 0 < FTickRetrys[i] then begin
      // リトライ...無条件に読込.
      bNewTick := True;
    end else begin
      // エクセル１行読込で変化があるか?
      TopNo   := VarToInteger_(WorkSheets[Sheet].Range['N1'].Value);
      bNewTick:= (TopNo <> TickNo);
    end;
    //
    HighTicks := -1;
    SeriesNo  := 0;
    bTickRetry:= False;
    bErr      := False;
    if bNewTick then begin
      try
        // エクセル読込... =FTICK("%s", "0", "300",  行読込(Max=300).
        // <1> Lock
        WorkSheets[Sheet].Unprotect;
        WorkSheets[Sheet].Range['L1:R300'].Locked := True;
        WorkSheets[Sheet].Protect;
        // <2> 読込と検証 1Pass
        ExcelTick := WorkSheets[Sheet].Range['L1:R300'].Value;
        if VarIsArray(ExcelTick) and (VarArrayHighBound(ExcelTick, 2) = 7) then begin
          // 代入前に配列クリア.                                   2: ２次元目.
          TickThreads[i].ClearTicks;
          BottomGyo := 0;
          for j := VarArrayLowBound(ExcelTick, 1) to VarArrayHighBound(ExcelTick, 1) do with TickThreads[i].Ticks[j] do begin
            Dt    := VarToDateTime( ExcelTick[j, 1]) +      // 日付
                     VarToDateTime( ExcelTick[j, 2]);       // 時刻.
            No    := VarToInteger_( ExcelTick[j, 3]);       // 約定通番.
            Ed    := VarToCurrency_(ExcelTick[j, 4]);       // 現在値.
            Dk    := VarToInteger_( ExcelTick[j, 5]);       // 出来高...TickのみInteger
            VWap  := VarToCurrency_(ExcelTick[j, 6]);       // ＶＷＡＰ.
            KKyo  := VarToCurrency_(ExcelTick[j, 7] * 100); // 買付強度...[50 %]⇒[0.5]の数値.
            if (CdMode = cdmSihyo) and (StTim2 <= TimeOf(Dt)) then Day := Trunc(Dt) +1  // 翌日.
                                                              else Day := Trunc(Dt);    // 当日.
            bErr := False;

            // 新規行.
            if j = 1 then begin   // VarArrayLowBound(ExcelTick, 1)
              SeriesNo  := No;    // TopNo.
              BottomGyo := WorkSheets[Sheet].Range['N1'].End[xlDown].Row; // 約定通番最終行.
            end;

            // Retry が必要か?
            if BottomGyo < j then begin
              // 最大行を超えた.
              Break;  // Ok
            end else if (Day = 0) or (No = 0) or (Trunc(Dt) = 0) or (Ed = 0) or (Dk = 0) then begin
              // 空行・無効行の確認.
              bErr := True;
              Break;      // for j Err
            end else if ((StrToTime('23:50') < TimeOf(Now)) or (TimeOf(Now) < StrToTime('00:10'))) and (10 <MinutesBetween(Dt, Now)) then begin
              // Ver11.24 [23:58 ～ 00:00]で日付異常が混在Fix...0時前後10分内で、ＰＣタイマと10分以内のデータOk：日付違いの発見.
              bTickRetry:= True;  // 今回の読込で連番異常あり：次回に全レコード読込.
              Break;      // for j Err
            end else if (No = SeriesNo) or ((SeriesNo = 0) and (0 < No)) then begin
              // 約定通番が連続Ok            No=1 の前.
              if SeriesNo = 0 then SeriesNo := No;
            end else begin
              // 連番でない.
              bTickRetry:= True;  // 今回の読込で連番異常あり：次回に全レコード読込.
              Break;      // for j Err
            end;

            // 有効行.
            if IsNewRec(Day, TickDay, No, TickNo) or (0 < FTickRetrys[i]) then begin
              // 変更有.                              リトライ中は全行読込.
              HighTicks := j;     // [1..300]有効配列最後.
            end;
            Dec(SeriesNo);  // CountDown
          end;  // for j
        end;  // if VarIsArray(ExcelTick)
      finally
        // <3> Lock解除.
        WorkSheets[Sheet].Unprotect;
        WorkSheets[Sheet].Range['L1:R300'].Locked := False;
      end;
    end;  // if bNewTick
    IncErrCnt(1, k);
    if bErr or bTickRetry then Timer(50) // Loop
                          else Break;    // for k
  except
    IncErrCnt(3);
  end;
end;   // for k

// ＤＢ更新とEccelクリア.
if bNewTick and (0 < HighTicks) and (not bErr) then begin
  // ＤＢ更新.           [1..300]
  この後、スレッドでＤＢ更新します
----------< ＰＧソース終了 >----------