这两句C++builder代码怎么转换成delphi

[xjlan]

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);

[xjlan]

我改后，在delphi中编译不认识HFONT类型

[lxpbuaa]

var
HandleFont: HFONT;
H: THandle;
fontRec: TLogFont;
begin
HandleFont := CreateFontIndirect(fontRec);
H := tmpBitmap.Canvas.Handle;
SelectObject(H, HandleFont);
SetTextColor(H, RGB(255,255,255));
TextOut(H, 18, 22, PChar(msg), Length(msg));
DeleteObject(HandleFont);
end;

—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————