Reproduccion aleatoria con un listbox

[Khronos]

Cuando pulsas stop tienes que parar el timer, cuando experimenté con este componente nunca utilice sus feos botones .
Creaba unos TSpeedButton con unas bonitas imagenes y ponia el TMediaPlayer.visible:=false.
En el evento del boton de stop ponia:

Código Delphi [-]
begin
Timer1.enabled:=false;
end;

Cuando le volvia a dar al play lo activaba de nuevo. Pero si estas utilizando los botones propios del componente, yo haria algo como esto:

Código Delphi [-]
procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
  var DoDefault: Boolean);
begin
                If Button=btStop then Timer1.enabled:=false 
end;

PD: Copiar y pegar codigo sin saber lo que hace no sirve de nada si no se entiende, buscate un buen manual de delphi y empieza por cosas mas sencillas.

Salu2