Hello Martin. Tanks for answer.
So I did remove "valuemin", "valuemax" . Here the procedure: procedure tsongplayerfo.onsetval(const sender: TObject; var avalue: realty; var accept: Boolean); begin if avalue > 100 then avalue := 100; if avalue < 0 then avalue := 0; end; But now I get a range error message for every data entered ;-(. ---> Range Error: Min: Max: Fre;D -- Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/ ------------------------------------------------------------------------------ Check out the vibrant tech community on one of the world's most engaging tech sites, Slashdot.org! http://sdm.link/slashdot _______________________________________________ mseide-msegui-talk mailing list mseide-msegui-talk@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk