Source position: mediaplayer.pas line 24
type TOnCompletion = procedure(
Sender: TObject
) of object;