这两句C++ builder代码怎么转换成delphi
xjlan 2003-08-20 07:18:20 HFONT hFont=CreateFontIndirect(&fontRec);
::SelectObject(tmpBitmap->Canvas->Handle,hFont);
::SetTextColor(tmpBitmap->Canvas->Handle,RGB(255,255,255));
::TextOut(tmpBitmap->Canvas->Handle,18,22,msg,lstrlen(msg));
::DeleteObject(hFont);