mediaplayer- nueva ventana

[Jorghino reyes]

ahora bien hice algo como esto: con 2 botones un play y un stop pero con showmodal no me muestra el video, que puedo hacer para que cuando se empieze a mostrar el video no permita cambiar de ventana hasta que este termine, claro utilizando el notify del mediaplayer , que para el ejemplo no lo puse.

Código Delphi [-]
procedure TForm1.SpeedButton3Click(Sender: TObject);
var
  forma2: Tform2;
begin
  form2:= Tform2.create(application);
  form2.caption:= 'reproduccion de video';
  form2.showmodal;
  mediaplayer1.display:= form2.RichEdit1;
  mediaplayer1.play;
end;
 
procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
  mediaplayer1.stop;
  form2.Free ;
end;

gracias, ahora esto es correcto?