TUpDown: Floats

[Jazzman_Marburg]

Mahlzeit!

Sorry, aber ich habe da mal 'nen Problem:

Ich habe eine TEdit Eingabefeld mit TUpDwon verheiratet, und der Benutzer soll den Wert um 0.1 erhöhen bzw. verkleinern können (in TEdit selbst nicht eingeben können), aber irgendwie stehe ich auf dem Schlauch:

procedure TForm1.UpDown2Click(Sender: TObject; Button: TUDBtnType);
begin
if Button = btNext then
Edit2.Text := FloatToStr(StrToFloat(Edit2.Text)+0.1);
if Button = btPrev then
Edit2.Text := FloatToStr(StrToFloat(Edit2.Text)-0.1);
end;

Was mache ich denn falsch? Es tut sich garnix!

Vermutlich wäre das Event OnChanging besser -- aber da habe ich doch kein 'Button' als Parameter -- wie werte ich dann aus, ob addiert order subtrahiert werden soll?

Vielen Dank
Jazzman