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.