[ViNT]

Эти "тормоза" обусловлены специально установленной задержкой в 500 миллисекунд, можно уменьшить, можно вообще убрать, а так код не очень ресурсоемкий.

Repaint;
    Delay(500); // <-----------Задержка
    DrawImage(I,X,Y);