UpDown nur nullbasiert?

[Kalakmul]

Hallo,

ich habe das Problem jetzt so gelöst, dass ich die anzuzeigende Position in der Tag-Eigenschaft des UpDown speichere und dann das Weitere im OnClick-Ereignis folgendermaßen regele ...

Delphi-Quellcode:

procedure TForm1.ud1Click(Sender: TObject; Button: TUDBtnType);
var
  AUpDown: TUpDown;
  Wert: Integer;
begin
  AUpDown := Sender as TUpDown;
  Wert := AUpDown.Tag;
  case Button of
    btNext: Wert := Wert + AUpDown.Increment;
    btPrev: Wert := Wert - AUpDown.Increment;
  end;
  AUpDown.Tag := Wert;
  AUpDown.Position := Wert;
end;

Gibt es noch eine bessere/elegantere Lösung?