Probleme mit Trackbar/Timer bei MP3 Player

[phAb]

danke für die flotte hilfe neutral general

meine trackbar läuft soweit, und meine listbox nimmt sogar mehrere items auf
aber schon häng ich wieder fest:
ich versuche grade makierte Items abzuspielen.
naja, mein erster einfall war den quellcode von meinem playbutton zu ändern.

Code:

procedure TForm1.Button1Click(Sender: TObject);
var pos:integer;
begin

if Button1.Caption='Play' then
  if running=true then
    begin
    Mediaplayer1.Resume;
    Button1.caption:='Pause';
    end
  else
    begin
    pos:=Listbox1.ItemIndex;
    Mediaplayer1.FileName:=Listbox1.Items[pos];
    Mediaplayer1.Open;
    Mediaplayer1.Play;
    Button1.caption:='Pause';
    running:=true;
    end
else
  begin
  Mediaplayer1.Pause;
  Button1.caption:='Play';
  end;


end;

Problem is das es nich klaptt^^ Also es wird immernoch das lied abgespielt was per opendialog ausgewählt wurden.
Ich weiß ich bin ziemlich unkreativ und was besseres fällt mir nich ein. Hab auch in der Hilfe über Listbox.Items nachgelesen, hat mir aber nich wirklich geholfen

mfg pHAB