Buttons in Mediaplayer aktivieren

[Flom]

okay
Ich habe ein Listview wo Songs Samt Pfad gespeichert werden. Bei einem Doppelklick darauf soll er den Song Abspielen. Klappt soweit Prima, nur man muss wieder extra auf den Playbutton klicken damit der Stop und Pause Button erscheint. was ich A lästig finde und B ja nicht so Benutzer freundlich ist.
Und damit du nicht die Glaskugel raus holen musst hier etwas Code

Delphi-Quellcode:

procedure TForm1.ListView1DblClick(Sender: TObject);
var playdir,playfile:string;
    playItemIndex:integer;
begin
      playItemIndex:=ListView1.ItemIndex;
      ListView2.ItemIndex   := playItemIndex;
      playdir  := ListView2.Items.Item[ListView2.ItemIndex].SubItems[2];
      playfile :=  ListView2.Items.Item[ListView2.ItemIndex].SubItems[3];
      MediaPlayer1.FileName := playdir + playfile;
      MediaPlayer1.Open;
      MediaPlayer1.Play;
      MediaPlayer1.EnabledButtons:=[btPause, btStop]; 
      MediaPlayer1.Pause;
      MediaPlayer1.Stop;
      MediaPlayer1.EnabledButtons:=[btPlay]; 
      MediaPlayer1.Play; // damit er es gleich abspielt beim Doppelklicken
end;