TextOut Font zuweisung

[EWeiss]

Hab es mal so gemacht und scheint zu gehen..
Ist das OK ?
Font, OldFont: HFONT;

Delphi-Quellcode:

      SetBkColor(VisInfo^.VisDC, TRANSPARENT);
      SetTextColor(VisInfo^.VisDC, RGB(255,255,255));
      Font := CreateFont(50, 0, 0, 0, 0, 0, 0, 0,
                 ANSI_CHARSET,
                 OUT_DEFAULT_PRECIS,
                 CLIP_DEFAULT_PRECIS,
                 DEFAULT_QUALITY,
                 DEFAULT_PITCH, 'MS Sans Serif');

      OldFont := SelectObject(VisInfo^.VisDC, Font);
      TextOut(VisInfo^.VisDC, 20, 20, 'TEST', 4);
      SelectObject(VisInfo^.VisDC, OldFont);
      DeleteObject(Font);

Nur der Hintergrund trotz dem Transparenten Flag ist nicht transparent
Kann ich das so in der renderproc belassen oder die initialisierung für den Font lieber auslagern?

gruss Emil