+1
ты б зато время что просиш сам бы написал
там задачи фигня делать -
делаем 4 переменных, 1,2 - координаты какогото угла куба, 3,4 - переменны дял хранения направления движения - (-1 или 1)
var x,y,a,b:integer;
....
x:=getmaxx div 2;//делаем куб
y:=getmaxy div 2;//по середине...