Ошибка в анимации

[om3n]

В общем есть нарисованный человечек, он двигается, т.е. шагает. И на третьем шаге у него теряется нога) Сколько не редактировал, не понял, почему она пропадает. Может вы подскажете.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i,x:integer;
implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
i:=i+1;
x:=x+30;
If i>3 then i:=1;
Form1.Refresh;
If i=1 then
with canvas do
begin
Ellipse(x+10, 100, x+40, 130);
MoveTo(x+25, 130);
LineTo(x+25, 150);
MoveTo(x+25, 130);
LineTo(x+25, 140);
MoveTo(x+25, 130);
LineTo(x+40, 140);
MoveTo(x+25, 150);
LineTo(x+15, 190);
MoveTo(x+25, 150);
LineTo(x+35, 190);
end;
 
If i=2 then
with canvas do
begin
Canvas.Ellipse(x+10, 100, x+40, 130);
MoveTo(x+25, 130);
LineTo(x+25, 150);
MoveTo(x+25, 130);
LineTo(x+25, 140);
MoveTo(x+25, 130);
LineTo(x+40, 140);
MoveTo(x+25, 150);
LineTo(x+25, 190);
MoveTo(x+25, 150);
LineTo(x+35, 190);
end;
 

with canvas do
begin
Ellipse(x+10, 100, x+40, 130);
MoveTo(x+25, 130);
LineTo(x+25, 150);
MoveTo(x+25, 130);
LineTo(x+10, 140);
MoveTo(x+25, 130);
LineTo(x+40, 140);
MoveTo(x+25, 150);
LineTo(x+35, 190);
MoveTo(x+25, 150);
LineTo(x+35, 190);
end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.enabled := not timer1.enabled;
end;
end.