XML in Threads

[Luckie]

Hm. Ich habe es jetzt so:

Delphi-Quellcode:

constructor TSave.Create(Suspended: Boolean);
begin
  inherited Create(Suspended);
  CoInitialize(nil);
end;

destructor TSave.Destroy;
begin
  CoUninitialize;
  inherited;
end;

Aber das:
XMLDoc := CoDOMDocument.Create; funktioniert immer noch nicht. XMLDoc ist immer noch nil.

Aufruf:

Delphi-Quellcode:

procedure TForm2.tbbSaveClick(Sender: TObject);
var
  Save              : TSave;
begin
  if SaveDialog1.Execute then
  begin
    Save := TSave.Create(True);
    try
      try
        Save.FreeOnTerminate;
        Save.Filename := SaveDialog1.FileName;
        Save.IEVect := ImageEnVect1;
        Save.OnProgress := Progress;
        Save.OnFinish := Finish;
        Save.Resume;

Update: Wenn es in der Execute Methode steht funktioniert es.