Рисуешь этот домик на листе из тетради...помечаешь ключевые точки, в масштабе вычисляешь координаты...
Далее на канве методами...
Код:
Form.Canvas.MoveTo(X,Y);//Передвинутся в точку
Form.Canvas.LineTo(X,Y);//Нарисовать линию из текущей точки в следующую точку
рисуешь домик....
Создаешь макет окна, вышеописанными медами рисуешь его...для имитации движения можно примерно так...
Код:
with Form.Canvas do begin//работа с канвой формы
for i := 0 to 100 do begin //будет движение на 100 точек
MoveTo(X1+i,Y1); LineTo(X1+i,Y1);//Первая линия окна
MoveTo(X1+i,Y1); LineTo(X1+i,Y1);
MoveTo(X1+i,Y1); LineTo(X1+i,Y1);
MoveTo(X1+i,Y1); LineTo(X1+i,Y1);
Sleep (10); //Ждать 10 мс
end;
end;
Как то так, код не тестировал...