procedure TForm1.FormCreate(Sender: TObject); begin Mediaplayer1.FileName := ('D:\test.mp3'); Mediaplayer1.open; Mediaplayer1.play; end;