关于在BCB中应用双缓冲问题(100分)

先创建一个内处于DC，然后在内存DC上画线，最后将内存DC拷贝给设备DC。代码如下，运行后没有画线，而且背景全黑。诚心请教是什么问题？
HDC hDC = ::GetDC(Form1->Handle);
//创建一个内存DC:
HDC hMemDC = ::CreateCompatibleDC(hDC);

HBITMAP Bitmap = ::CreateCompatibleBitmap(hMemDC,Width,Height);
HBITMAP pOldBitmap= ::SelectObject(hMemDC, Bitmap);

::SetBkMode(hMemDC,TRANSPARENT);

::MoveToEx(hMemDC,1,1,NULL);
::LineTo(hMemDC,100,100);

::BitBlt(hDC,0,0,Width,Height,hMemDC,0,0,SRCCOPY);

Bitmap = ::SelectObject(hMemDC, pOldBitmap);

:eleteDC(hMemDC);

请大家帮忙了！