type
    PItem=TItem^
    TItem=record
         Msg:userType
         Next:PItem;
    end
    PInfo=TInfo
    TInfo=record
        Item:PItem
        Next:PInfo
        end