anchor.diff:      VK_HOME:    CursorPos := 0;
       VK_END:     CursorPos := Length(fText);
     end;
  +
  +  if Assigned(OnChange) then
  +    OnChange(Self);
   end;
   
   
  
positive.code:     Value := Value + Byte(AButton = mbLeft) + Byte(AButton = mbRight) * 10
    else
      Exit;
  end;
  
  
  
negative.code: begin
    Result := KeyEventHandled(Key, Shift);
    if inherited KeyUp(Key, Shift) then Exit;
  end;
  
  
  