Manejar Objetos por funciones

[Lord Delfos]

Bueno... Sí... No entiendo muy bien porqué querrías hacer lo que yo entiendo que querés hacer... Pero:

Código Delphi [-]
procedure  TForm1.VideoPlay(var sVideo: TVideoPlayer);
begin
  if Assigned(sVideo) then
    begin
    sVideo.Free;
    sVideo:= TVideoPlayer.Create;
    with sVideo do
      begin
      Show;
      OpenSync;      
      end;
    end;
end;

No sé si TVideoPlayer.Create recibirá parámetros...

En fin, sVideo está asignado, esto es, si está instanciado, se destruye y se vuelve a crear.

Espero sea eso lo que decías.

Saludongos.