anchor.diff:  begin
     inherited;
     prevval  := Text;
  -  if FSpecialChar> -1 then
  -  begin
  -    case FSpecialChar of
  -      58536:
  -        case AText of
  -          'a':
  -            AText:= 'â';
  -          'e':
  -            AText:= 'ë';
  -          'i':
  -            AText:= 'ï';
  -          'o':
  -            AText:= 'ö';
  -          'u':
  -            AText:= 'ü';
  -        end;
  -      58462:
  -        case AText of
  -          'a':
  -            AText:= 'â';
  -          'e':
  -            AText:= 'ê';
  -          'i':
  -            AText:= 'î';
  -          'o':
  -            AText:= 'ô';
  -          'u':
  -            AText:= 'û';
  -        end;
  -    end;
  -    FSpecialChar:= -1;
  -  end;
     s        := AText;
   
     if (not consumed) and (not ReadOnly) then
  
positive.code:   FReadOnly   := False;
    FUpdateCount := 0;
    FBorderStyle := ebsDefault;
    FSpecialChar := -1;
  
    FLines      := TfpgMemoStrings.Create(self);
    FFirstLine  := 0;
  
negative.code:   fpgApplication.HideHint;
    Consumed := True;
    hasChanged := False;
    case CheckClipBoardKey(keycode, shiftstate) of
      ckCopy:
          begin
  