графика в паскале

[Pihan]

помогите плиз, что то не выходит, просто размазывает движение и все .....

Procedure chelovek;
begin
Setcolor(1);
Circle(275,300,8);
Line(275,308,275,340);
Line(275,340,270,365);{nogi}
Line(275,340,292,365);
Line(275,324,260,335); {ruki}
Line(275,324,290,335);
{dvigaem_cheloveka}
 chelovek;
 Size:=ImageSize(265,291,296,365);
 GetMem(P,size);
 GetImage(265,291,296,365,P^);
 For x:=229 to 300 do
  begin
  dec(y);
   PutImage(x,y,P^,CopyPut);
     delay(50);
  end;

что я тут не так сделал?(

[psycho-coder]

Нарисуй этот самый кадр еще раз с цветом фона, перед прорисовкой нового.

[Pihan]

psycho-coder CПАСиБо