am besten etwa so:
Delphi-Quellcode:
type TmySmallint= {packed} record
case Boolean of
True: (SI:smallint);
False: (LoByte:byte; HiByte:Byte);
end;
Damit hast du einen neuen Typ, den du verwenden kannst.
Edit:
btw.: Was ist denn bei dir Smallint? Mit (MeinWert and $0000FFFF) besetzt du den gesamten Smallint und nicht nur das LoByte.