Source position: mseclasses.pas line 134
type updaterealeventty = procedure(
const sender: tobject;
var avalue: real
) of object;