UxTheme-Funktion "vernichtet" TRect

[BadenPower]

Hallo zusammen,

kann bitte irgendjemand einmal diesen Codeschnipsel in einer Paintmethode ausprobieren?

Delphi-Quellcode:

procedure TNewComponent.Paint;
var
  lRect: TRect;
  lLogFont: LOGFONT;
begin

   lRect := Rect(10,0,100,20);
   UxTheme.GetThemeSysFont(0, TMT_CAPTIONFONT, lLogFont);
   DrawText(Canvas.Handle,PChar('Titel1'),Length(PChar('Titel1')) ,
          lRect,DT_LEFT or DT_SINGLELINE or DT_END_ELLIPSIS or DT_VCENTER);

   lRect := Rect(10,30,100,50);
   DrawText(Canvas.Handle,PChar('Titel2'),Length(PChar('Titel2')) ,
          lRect,DT_LEFT or DT_SINGLELINE or DT_END_ELLIPSIS or DT_VCENTER);

end;

Bei mir wird nur der 2. Text ausgegeben.
Delphi 2007 auf Windows XP.