мдя. мыши плакали, кололись - но упорно продолжали грысть кактус или век живи - век учись. сказад ежик слезая с кактуса....
итак костьль найден.
пошговый дамп массива из формы и потока показал что данные доходят правильно. результат в потоке тоже верный. Проблема оказалась в необходимой задержке для остаканивания системы и потока после Resume. после введения sleep(10) все заработало. результат повторяемый и совпадает с первым алгоритмом на 100%.
Костыль:
Код:
FindTR1.Resume;
sleep(10); // собственно сам костыль. 10 минмал время принятия по стаканчику для выхода из suspend.
while FindTR1.Suspended = false do begin
для проверки основного алгоритма сойдет. для нормальной работы софта - нет.