begin if Sender is TLabel then lbClick := sender as TLabel else exit; if Assigned(lbClick) then begin .... end; end;