Convert TStruct class to point-free
 fix pop'