[Bars1992]

Или ище легче бирешь пишешь событие по клику на лейбе

PHP код:

procedure TForm1.Label1Click(Sender: TObject);
begin
Flag:=true;//флаг глобальная переменная
end; 


а потом в коде пишеш

PHP код:

if flag then ........