vc++代码怎样在delphi中实现？（会了不难，难了不会）

delphi中控件edit编译完运行时，光标是‘|’的竖线闪烁，我需要的是'_'这样的光标闪烁（注意不是鼠标）；在DOS中编程很容易实现，我知道怎样在vc++中实现，看
下面的代码：
if (m_editCtrl.GetFocus)
  {
   CBitmap* pBitmap = new CBitmap;
   pBitmap->LoadBitmap(IDB_HAPPY_BITMAP);
   m_editCtrl.CreateCaret(pBitmap);
   m_editCtrl.ShowCaret();
}
IDB_HAPPY_BITMAP是资源‘_’小图标。
这些代码要在delphi中怎样实现，请告知。