Source position: mediaplayer.pas line 23
type TOnVideoSizeChanged = procedure(
Sender: TObject;
videoWidth: Integer;
videoHeigh: Integer
) of object;