put the list in the type

Im trying to put the list in the actual type like this:

Type warrior extends character
Global list:TList
function create()
If list=Null
list:TList = CreateList()
EndIf
end function
end type

but it always says the object is null when I try to use the list