ShellExecute problem mit winamp

[turboPASCAL]

Delphi-Quellcode:

procedure TForm1.btnAddToWmpListClick(Sender: TObject);
var
  WinampPathAndExec,
  WinampExecParam,
  SongFilePathAndName: String;
begin
  WinampPathAndExec := 'C:\Programme\Winamp\winamp.exe';
  SongFilePathAndName := 'C:\Nuppsi\Eigene Musik\The 411 - Dumb.mp3';
  WinampExecParam := '/ADD "' + SongFilePathAndName + '"';

  if ShellExecute(Application.Handle, 'open', PChar(WinampPathAndExec),
    PChar(WinampExecParam), Nil, SW_SHOWNORMAL) <= 32 then RaiseLastWin32Error;
end;

Am einfachsten Schritt für Schritt und dann klappt das auch mit dem Winamp...