加密鎖寫入問題

加密鎖寫入問題 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;  
  這樣倒是滿足我的需求了，但是我不知道這樣做是不是有危險那？