TUpDown Limitierung auf SmallInt

[Helmi]

Hallo,

vielleicht sollte man noch prüfen, ob wirklich Zahlen im Editfeld eingegeben wurden...
(die manuelle Eingabe ist ja trotz UpDown noch möglich)

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject); 
var
  i: Integer;

begin 
  If TryStrToInt(Edit1.Text, i) then
    UpDown1.Tag := i;
end;