Exception bei HTTP GET über MSXML2_TLB.pas

[Crazy Ivan]

Hallo da draußen.

Ich habe die in diesem Beitrag beschriebene Methode unter TurboDelphi2006 nachgebaut, um die OpenWeather-Schnittstelle von Wetter.com für eine Art Schulprojekt zu nutzen. Es gibt allerdings eine Exception in folgendem Code:

Delphi-Quellcode:

function TFWeather.GetCityCode: String;
var
  Req: IXMLHTTPRequest;
begin
  Req := ComsXMLHTTP.Create; // an dieser Stelle die Exception
  with Req do
  begin
    Open('GET', GetSearchURL, False, {Username} EmptyParam, {Passwort} EmptyParam);
    SetRequestHeader('aiFrogOpenWeatherGadget', 'CityCodeRequest');
    Send(EmptyParam);
    Result := ...
  end;
end;

Dabei wird dann eine Zeile in der MSXML2_TLB.pas angezeigt, die Delphi für MSXMLv4 generiert hat. Die entsprechende Stelle ist:

Delphi-Quellcode:

class function ComsXMLHTTP.Create: IXMLHTTPRequest;
begin
  Result := CreateComObject(CLASS_msXMLHTTP) as IXMLHTTPRequest;
end;

Die Exception: Im Projekt ist eine Exception der Klasse EOleSysError mit der Meldung 'CoInitialize wurde nicht aufgerufen, Class-ID: {.........}' aufgetreten.

Was mache ich (und oder Delphi) falsch?