procedure TForm4.UpDown1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin try
if FUpdating then Exit;
CurrText.Size :=UpDown1.Position;
except end;End;