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;
mfg
Helmi 
>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<