да ошибку нашел, тр***лся долго но нашёл ... и она неисправима. Три кадра сделал
kadr:=kadr+1; if kadr>2 then kadr:=0; //смена кадра
и в формуле
DrawImage(tank[dir*2+kadr], X, Y);
балда получаеться когда dir=1 или 2 или 3. Это тоже исправил но имена изображений поменялись и прога из-за масива не работает. Переделать нужно
Сама прога. Смотри