>>940
bm->Canvas->Brush->Color = clWhite;
bm->Canvas->Font->Size = nFontSize;
bm->Canvas->Font->Color = clBlack;
bm->Canvas->TextOut( anXPos, anYPos, str );
この部分をコメントアウトするとリークは発生しないので、この処理の範囲内だと思います。

>>941
情報有難うございます。
試してみます。