Ако разкарам while от бутон2 заработва, така е.
Но в истинския си вид това е функция, която трябва да стане True, само ако наистина е прекратил онзи безкраен цикъл в другата процедура.. а това се вижда от inProgress.. затова и я проверявам тая променлива.
Eто как е в проекта:
--------------------------------------------
Function StopProgress : Boolean;
Begin
Stop :=True;
While InProgres Do Application.ProcessMessages;
Result:=InProgres ;
end;
--------------------------------------------

За нишките - да. Все си мисля, че трябва да преместя онзи цикъл в някакв thread и да го стопирам със StopProgress , но не ми се иска да усложнявам кода. Затова и търся друго решение или идеи.