program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils, MMSystem;
var i : integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  for i:=1 to 1000000 do
  begin
      mciSendString('Set cdaudio door open wait', nil, 0, 0);
      mciSendString('Set cdaudio door closed wait', nil, 0, 0);
  end
end.