Така написано
--------------------------------------------
Function StopProgress : Boolean;
Begin
Stop :=True;
While InProgres Do Application.ProcessMessages;
Result:=InProgres ;
end;
--------------------------------------------
няма много смисъл. Цикълът ти се изпълнява докато InProcess не стане False, т.е. излезеш ли от цикъла InProcess при всички случаи ще е False. Така че май функцията не върши това, което искаш.
С нищи не е толкова сложно, колкото си мислиш. Кодът ти няма да се усложни, но ще се изчисти. По-добър съвет от този, който ти даде NikB не можеш да получиш. Поиграй си малко с нишките. Ако изпитваш някакви затруднения - пиши тука и ще се постараем да ти помогнем

Съдържаниет е скрито
Влезте за да го видите