Manejar Objetos por funciones

[cirilungol]

Hola buenas Gurues del Delphi.


Tengo una duda, he vuelto a las andadas de la programación delphi y lo que antaño sabia hacer muy bien ahora ni me acuerdo... weno me da errores

Tengo la intención de crear una funcion en la cual le pase una variable de tipo TMovieplaye.

En esta función lo que quiero es llamarla tantas veces como me sea preciso, pero que el objeto se libere y se cree cuando le llame.

vendria a ser:

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 objeto do 
   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;

weno no se si me he podido explicar con toda claridad pero toda ayuda es buena, por muy pequeña que pueda ser.

muchas gracias por leerme!!!!!