[angvelem]

Не знаешь Дельфи, учи.

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not dlgOpen1.Execute then
    Exit;
  BasicPlayerPlayFile(dlgOpen1.FileName);
end;