WinampApi Problem

[titus]

Hi, ich hab mir die WinampApi mal gesaugt, und wenn ich jetzt folgenden Quelltext eingebe:

Delphi-Quellcode:

unit Unit1;

interface

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

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

var
  Form1: TForm1;
  WinAmp : TWinampApi;
  openPlay : Boolean;
  openPlayList : Boolean;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var WinAmp : TWinAmpApi;
begin
  // Make song length & position be returned in mm:ss format
  WinAmp.SongLengthParseTime := True;
  WinAmp.SongPosParseTime := True;

  Memo1.Text := '';
  Memo1.Lines.Add('Playing :'+Winamp.getWhatsPlaying);
  Memo1.Lines.Add('Song state: '+WinAmp.getSongState);
  Memo1.Lines.Add('Song position: '+WinAmp.getSongPosition);
  Memo1.Lines.Add('Song length: '+WinAmp.getSongLength);
  Memo1.Lines.Add('Song sample rate: '+WinAmp.getSongSampleRate);
  Memo1.Lines.Add('Song bitrate: '+WinAmp.getSongBitRate);
  Memo1.Lines.Add('Song channels: '+WinAmp.getSongChannels);
  Memo1.Lines.Add('Song play list position: '+WinAmp.getPlayListPosition +'/'+WinAmp.getPlayListLength);
end;

end.

Kommt in dem Memo1-Feld folgende Anzeige:

Zitat:

Playing :
Song state: stopped
Song position: 00:00
Song length: 00:00
Song sample rate: 0
Song bitrate: 0
Song channels: 0
Song play list position: 0/0

Das stimmt aber nicht.

Bitte helft mir...

mfG, LCD