procedure TForm1.Mediaplayer1Notify(Sender:TObject);
begin
mediaplayer1.notify:=True;
mediaplayer1.play;
end;