[dr. F.I.N.]

Сообщение от DiMiTrI p526

Есть код, согласно которому программа должна предлагать выбрать музыкальный файл и проигрывать его

Код:

...

type
  TForm1 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    procedure FormCreate(Sender: TObject);
    ...

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

end.

Посмотрите внимательно на выделенное.