Help with Casting

It's funny how you can work on a problem, finally ask for help and then figure it out 5 mins later.

Function DrawAllObjects()
   For Local Objects:Universe=EachIn ObjectList
	If TPlanet(Objects)<>Null ' <------- I had Tplanet and Objects Reversed. :)
	DrawText "Planet",Objects.Position.X,Objects.Position.Y+60
	End If 
	Objects.Draw()
   Next
End Function