Problem mit iTunes und COM

[sebi87]

Hallo Leute,

ich versuche mein iTunes über COM zu stueren was auch mittels Buttons ganz gut funktioniert. Hier mal eine Beispielprocedure

Delphi-Quellcode:

procedure play;
var
  iTunes : OleVariant;
begin
  try
    iTunes := CreateOleObject('iTunes.Application');
    if not VarIsNull(iTunes) then begin
      iTunes.Play;
      iTunes := Unassigned;
    end;
  except
  end;
end;

Funktioniert auch ganz gut. Wenn ich die Procedure über ein Ereignis des IndyHTTPServers aufrufe bekomme ich immer diese Fehlermeldung

Code:

Im Projekt HomeServer.exe ist eine Exeption der Klasse EOleSysError aufgertreten. Meldung: 'CoInitialize wurde nicht aufgerufen'. Prozes....

ich habe es schon mit OleInitialize(nil); vor dem Aufruf und bei Formcreate versucht.

Wo mache ich den Fehler?

Viele Grüße
Sebastian