Reproduccion aleatoria con un listbox

[[coso]]

Ctrl+F5 -> watches o bien boton derecho sobre el identificador. Con el F5, break points. F7,F8 trace into, trace over. Las opciones de debug tienen que estar activadas en options->project->compiler options o algo asi...En tu caso, pulsaria F5 para poner un breakpoint en la linea siguiente del primer 'if' (begin), y ctrl+f5 encima MediaPlayer1.Position, ctrl+F5 encima mediaplayer1.Lenght. otra manera practica de evaluar es poner un par de labels y con algun evento irlas actualizando, luego ya las quitas...

Código Delphi [-]

label1.Caption := inttostr(MediaPlayer1.Position);
label2.Caption := inttostr(MediaPlayer2.Lenght);