anchor.diff:  
   function TKMNumericEdit.IsCharValid(Key: WideChar): Boolean;
   begin
  -  Result := Key in ['0'..'9'];
  +  Result := SysUtils.CharInSet(Key, ['0'..'9']);
   end;
   
   
  
positive.code: procedure TKMEdit.Paint;
  var
    Col: TColor4;
    RText, BeforeSelectionText, SelectionText: UnicodeString;
    OffX, BeforeSelectionW, SelectionW: Integer;
  begin
    inherited;
  
  
negative.code: 
  
  function TKMNumericEdit.KeyDown(Key: Word; Shift: TShiftState): Boolean;
  begin
    Result := KeyEventHandled(Key, Shift);
    inherited KeyDown(Key, Shift);
  