with MediaPlayer1 dobegin Display := Self; DisplayRect := ClientRect; FileName:= OpenDialog1.FileName; Open; Play;end;
