strict question

you need to declare the variable:

Function updateall()
	Local a:TShip
		For a:Tship=EachIn list
			a.update
		Next
End Function

or

Function updateall()
		For Local a:TShip=EachIn list
			a.update
		Next
End Function