TgtOnChangeValue = procedure (var Value: Double) of object;

(var Value: Double) ( TgtOnChangeValue)();