Hallo,
Das sollte schon funktionieren, forausgesetzt, im Edit2 steht anfangs ein gültiger Float Wert.
Damit du den Wert nicht umwandeln musst, könntest du es auch etwa so machen:
Delphi-Quellcode:
procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
{$J+}const
Value: Real = 0; // Anfangswert
{$J-}
begin
case Button of
btNext: Value := Value + 0.1;
btPrev: Value := Value - 0.1;
end;
Edit2.Text := FloatToStrF(Value, ffNumber, 1, 1);
end;