[cherepets]

var b:boolean;

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

//Тут изменяется b в зависимости от нажатий
if pointer_state<>0 then b:=true else b:=false;