Manejar Objetos por funciones

[cirilungol]

Lo has entendido muy bien.

Yo antaño, me acuedo de haber utilizado funciones de la manera que explico al principio.

Pero no me acuerdo de como se hacia correctamente.

A ver si me puedo explicar mejor.

video1,video2

estos videos estan creados en la aplicación, y se cargan con una secuencia, haciendo un

Código Delphi [-]
opensync;

que hace que no haga nada mas hasta que termine el video.

Pues bien, una vez se han mostrado los videos, al volver a mostrarlos, tardan muchisimo, y eso que la primera vez lo hace rapidisimo y de forma eficáz.

El problema de que tarden tanto en volver a mostrarse es lo que me trae de cabeza. Y por ello pensé en una función que liberase y crease el objeto pasado por la funcion.

Código Delphi [-]

procedure tform1.VideoPlay(sVideo: TMovieplayer);
begin
   
   //Liberar el objeto... aunque no se si aqui sería correcto
   //Aqui es donde se supone que tendria que cargar el objeto
   //(objeto as TMovieplayer)....vago recuerdo el mio

   with (sVideo as TMovieplayer) do //Modificado para tener un poco mas claro que hacer con el objeto pasado por el procedimiento
   begin
        show;
        //El openSync deja el video en marcha hasta que finalice, no hará otra acción pero si que recorre codigo... 
        OpenSync;
   end;

end;

he retocado el codigo a ver si se tiene una idea mas clara de lo que quiero hacer.

Gracias por contestar