[cirilungol]

Gracias por contestar,

Código Delphi [-]
    sVideo.Free;
    sVideo:= TVideoPlayer.Create;

esta parte la tenia mas o menos clara, pero lo que me falta es pasar y cargar ese

 svideo

mediante una funcion ya que puede darse que pida diferentes vidios y estos han de mostrarse uno detras de otro.