вот с горем пополам нарисовал этого человечка
Код:
Canvas.Brush.Color:=clRed;
Canvas.Ellipse(15,15,50,50);
Canvas.MoveTo(30,50);
Canvas.LineTo(30,130);
Canvas.MoveTo(30,130);
Canvas.LineTo(20,170);
Canvas.MoveTo(30,130);
Canvas.LineTo(40,170);
Canvas.MoveTo(10,80);
Canvas.LineTo(50,80);
Но как его заставить двигаться без понятия
