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