加密锁写入问题

加密锁写入问题 Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiAPI/html/delphi_20061205113039121.html
正在写加密锁的程序,但是sdk中DOGWRITE()函数每次写一个WORD进去,我想让它每次写一个BYTE进去.能提点思路吗?

读出Word，修改Byte，再写回   WORD

我声明了一个结构体    
  type    
        TMyWord   =   record  
              HByte:Byte;  
              LByte:Byte;  
        end;  
  程序里用的时候：  
  var  
      data:TMyWord;  
      data1:WORD;  
      HiByte,LoByte:Byte;  
  begin  
      HiByte   :=   ord('a');  
      LoByte   :=   ord('b');  
      data.HByte   :=   HiByte;  
      data.LByte   :=   LoByte;  
      data1   :=   WORD(data);      
  end;  
  这样倒是满足我的需求了，但是我不知道这样做是不是有危险那？