use: TYPE TMyOne = packed record First:integer; Second:extended; END; to be sure about 20 bytes boundary.
thanks, dmitry _______________________________________________ Lazarus mailing list Lazarus@lazarus.freepascal.org http://www.lazarus.freepascal.org/mailman/listinfo/lazarus