¿Stretch de video en un Mediaplayer?

[NPIdea]

Pues estoy mostrando un video en un TPanel, siendo la resolución del video de 640 x 480 y quisiera ajustarlo al Panel.

Para ello he probado con DisplayRect, pero no funciona.

Media.Open;
Media.DisplayRect :=rect(0,0,OleContainer1.Width,OleContainer1.Height);
Media.Play;

Si hago esto el video no se muestra, pero si quito la linea de Displayrect, lo muestra pero no se ve entero.

Con la propiedad de Olecontainer SizeMode a Stretch tampoco me funciona.

Gracias

[NPIdea]

Pues todo funciona perfectamente, siempre y cuando el DisplayRect de MediaPlayer sea 1 pixel menor tanto en anchura como en altura.

El codigo de la revista Sintesis nº 14 no me ha funcionado bien, peroespero adaptarlo al tamaño inferior del Tpanel y seguro que funciona perfectamente.