Source position: mediaplayer.pas line 22
type TOnPrepared = procedure(
Sender: TObject;
videoWidth: Integer;
videoHeight: Integer
) of object;