Source position: DAV_GuiSlider.pas line 45
type TSliderGetTextEvent = procedure(
Sender: TObject;
var Text: string
) of object;