Problem mit grade gespieltem Song im Windows Media Player

[ichbin007]

Ich Versuche grade den gespielten Song im Windows Media Player herrauszufinden, dazu habe ich mir die Typebiliothek Importert, doch bekomme ich immer nur, Wiedergabeliste1, Wiedergabeliste2, Wiedergabeliste3... je nachdem wie oft ich auf den Button Klicke

Hier der Code:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls,MediaPlayer_TLB, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  WMP: IMediaPlayer;
  Track: WideString;
begin
  WMP := CoMediaPlayer_.Create;
  Track := WMP.GetMediaInfoString(1);
  Label1.Caption := Track;

end;

end.

Weiß jemand was da Falsch sein könnte ?

Danke im Vorraus

mfg

ichbin007