var lbClick:TLable; begin lbClick := sender as TLabel; if Assigned(lbClick) then begin .... end; end;