> Property CustomData : TObject or so, as a public property. Or more flexible: CstomData: packed record case integer of 0 : (i64: int64); 1 : (lo32, hi32 : Cardinal); 2 : (Words : Array[0..3] of Word); 3 : (Bytes : Array[0..7] of Byte); 4 : (p : pointer); 5 : (obj : TObject); end; Benito