if OpenDialog1.Execute then with MediaPlayer1 do begin FileName := OpenDialog1.FileName; Open; Display := Panel1; DisplayRect := Rect(0,0,Panel1.Width,Panel1.Height); Frames := 1; Step; end;