Fehler mit Delphi 7 + XPManifest

[Gusta]

hi,
I had the same problems with an application using XPMan komponent
and a dll. After some hours of investigation I found that the problem
is in unit Themes.pas (..Delphi7\Source\Vcl)- in the procedure
TThemeServices.UnloadThemeData.
I closed all the code in this procedure in brackets, compiled and with
the new Themes.dcu I replaced the old one in ..Delphi7\Lib

procedure TThemeServices.UnloadThemeData;
var
Entry: TThemedElement;
begin
{for Entry := Low(TThemeData) to High(TThemeData) do
if FThemeData[Entry] <> 0 then
begin
CloseThemeData(FThemeData[Entry]);
FThemeData[Entry] := 0;
end;}
end;

Now everyhing works well - no errors.

Gustav