Вставить из clipboard BMP в Image Control

[seawolf]

Уважаемые коллеги,
Потребовалось вставить из клипборда bmp в image control окна. Взял за основу реализацию clarionFreeimage. Но неохота весь класс clipboard тащить к себе.

Код из FreeImage
If cb.OpenClipboard(Window) = True
cb.GetClipboard(Window, ?Image1)
cb.CloseClipboard()
.
Работает на 100% и clarion5 в том числе.
Однако пытаюсь сделать это прямо через API руками - аналогично как описано в классе Freeimage отвечающим за clipboard
hMem HGlobal (Handle описан глобально )

If OpenClipboard(Window{prop:handle}) = True
hMem = GetClipboardData(CF_DIB)
! здесь handle приходит
Window $ ?Image1{PROP:ImageBlob} = hMem
GlobalFree(hMem)
CloseClipboard()
.
и не работает !

Кто подскажет что не так?