Was willst du eigentlich machen? Das wird aus deinem Code irgendwie nicht ersichtlich.
In dem Code lädst du eine Bitmap und zeichnest sie Pixel für Pixel über TDirect2DCanvas auf die Form, mit beiden Funktionen.
Du könntest zB auch mit
BitBlt die Bitmap in einem Rutsch auf die Form zeichnen. Wozu der Umweg?