procedure TForm1.Button1Click(Sender: TObject);
begin
    Application.ProcessMessages;
    MediaPlayer1.Open;
    Application.ProcessMessages;
    MediaPlayer1.Step;
    Application.ProcessMessages;
    MediaPlayer1.Previous;
end;