anchor.diff:  
   procedure TfrmKeyTest.cmdInsertClick(Sender: TObject);
   begin
  -  Close;
     if Assigned(FLastActiveControl) then
       GetCharMapDropTool.InsertToControl(FLastActiveControl, FormatKeyName(FLastShift, FLastKey), cmimCode);
   end;
  
positive.code: (*
    Name:             UfrmKeyTest
    Copyright:        Copyright (C) SIL International.
    Documentation:    
    Description:      
    Create Date:      1 Aug 2006
  
    Modified Date:    22 Jan 2007
    Authors:          mcdurdin
    Related Files:    
    Dependencies:     
  
    Bugs:             
    Todo:             
    Notes:            
    History:          23 Aug 2006 - mcdurdin - Use TApplicationEvents instead of hooking all messages
                      23 Aug 2006 - mcdurdin - Insert with new CharMapDropTool
                      22 Jan 2007 - mcdurdin - Add K_NPENTER special case
  
negative.code:   KT_LALT     = $0010000;
    KT_RCTRL    = $0020000;
    KT_RALT     = $0040000;
  
  type
    TfrmKeyTest = class(TTIKEForm)
      lblTitle: TLabel;
  