anchor.diff:    code: integer;
     str: string;
   begin
  -  code:= aCol-1 + (aRow-1)*16;
  -  str:= AnsiToUtf8(Chr(code));
  +  code:= DoGetCode(aCol, aRow);
  +  str:= Utf8Encode(WideChar(code));
   
     if Assigned(OnInsert) then
       OnInsert(str);
  
positive.code: var
    i, j: integer;
  begin
    if Button=mbLeft then
    begin
      Grid.MouseToCell(X, Y, i, j);
      if i<1 then exit;
      if j<1 then exit;
      DoInsert(i, j);
    end;
  end;
  
negative.code:     FOnInsert: TCharmapInsertEvent;
      FModeUnicode: boolean;
      FModeUnicodeBegin: integer;
      function DoGetCode(aCol, aRow: integer): integer;
      procedure DoShowAnsi;
      procedure DoShowUnicode;
      procedure DoAutosize;
  