Так само собой надо заголовочный DirectX.pas установить.
Да, еще по инерции туда нестандартный "if" засунул, с установкой step в данном случае 2, но это не принципиально, можно и стандартным обойтись, даже красивее получиться.