Fazendo Player

rimeiramente inicie o delphi e redimencione o forme até que fique do tamanho Desejado.

Altere o Caption do form dando o nome que você quizer, já que é seu player, salve tudo.

Em seguida adicione um TButton e um TOpenDialog, localizado na palheta Dialogs do delphi

No caption do TButton escreva Abrir.

Coloque também um objeto TMediaPlayer encontrado na palheta System.


No evento OnClick do TButton adicione as linhas de código como mostra abaixo:

procedure TForm1.Button1Click(Sender: TObject);
begin
MediaPlayer1.Close;
if OpenDialog1.Execute then
begin
MediaPlayer1.FileName := OpenDialog1.FileName;
MediaPlayer1.Open;
end;
Dimensione os objetos:

Na propriedade Filter do objeto OpenDialog1 adicione os seguintes itens:
*.avi; *.mid; *.mp3; *.wav

No Final seu player deve estar parecido com o esse!