Warum machst du das eigentlich so?
Rufst du die procedure doXmlStuff() im Main-Thread auf oder in einen eigenen Thread?
Für MainThread:
Projektdatei ->
Delphi-Quellcode:
begin
System.Win.ComObj.CoInitFlags := COINIT_APARTMENTTHREADED;
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TKrims, Krams);
Application.Run;
end.
In einen eigenen Thread würde ich die Co...-Funktionen im jeweiligen Create und Destroy rufen.