Latar Mp3

procedure TForm2.FormCreate(Sender: TObject);
var a:string ;
begin
a:='D:/Lagu/Ungu.mp3' ;
if FileExists(a) then begin
MediaPlayer1.FileName := a;
MediaPlayer1.Open ;
MediaPlayer1.Play ;

end;
end;