Ich auch.
Auf die Gefahr hin, dass ihr mich auf den Hof fegen schickt, hänge ich den Sourcecode mal an, in der Hoffnung, das ihr mal ein (oder auch zwei) Auge(n) drauf werft.
Ich komme einfach nicht weiter. Es geht um die Procedure
SetBitmap(hWnd: HWND);.
[Edit=turboPASCAL] Anhang entfernt, kommt aber wo anders wieder. 
[/Edit]