var b:boolean;//Тут код программыif (pointer_state<>0) and (b=false) then halt; {отлавливается именно клик}//Тут изменяется b в зависимости от нажатийif pointer_state<>0 then b:=true else b:=false;