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