if Assigned(TreeView.Selected.Data) then if TObject(TreeView.Selected.Data).ClassName = 'TMyClass1' then ...