Besser
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
MediaPlayer1.FileName:= OpenDialog1.Filename;
MediaPlayer1.Play;
FormResize(Self);
end;
end;
Sonst wird ein Teil des Codes auch ausgehührt wenn der Dialog abgebrochen wird.