How do you pass to a new record without getmem/freemem or new/dispose and save address of each in a TList ?