Ptr Problem

Hi, I want to write a little 'Watch Method' which should add the different pointers to a Tlist. My Question about it:
Is there any way to get different Ptr Types(Int Ptr,String Ptr)
with the same method instead of writing different Methods for each Pointer Type.

	Method Add_Watch(Name:String,_w_ptr:int ptr)
	If name.length > 10 then Notify ("Name to long !!")
	If name.length < 10 then
	Repeat
	Name = Name + " "
	until Name.Length = 10
	Endif
	if Name.Length <= 10 then
		Name = Name + " : "
		if CsysItem_List = Null then CsysItem_List = New TList
			W_ITEM:WText = New WText
			w_ITEM.Text = Name
			w_Item.w_ptr = _w_ptr
			Debuglog "" + var w_Item.w_PTR
			CsysItem_List.AddLast(W_Item)
	endif