Здравствуйте, neiroman, Вы писали:

N>обработчик onClick :
N>flag:=true
N>while flag do
N> // чето делаем


N>обработчик onMouseUp :
N>flag:=false;

Ага, только если на вставить в обработчике события onClick в цикле Application.ProcessMessages, то ваш цикл будет крутится и крутися, пока стэк не начнет орать и ругатся матом, после чего вылезет красивое окошком примерно с таким содержанием: Stack Overflow..bla-bla-bla.