procedure TForm1.FormShow(Sender: TObject); begin MediaPlayer1.FileName := 'имя твоего файла'; MediaPlayer1.Open; MediaPlayer1.Play end;