procedure AddTokenToList(ptoken: TSourceToken);
Add a sourcetoken into SourceTokenList. Used internally.