Canvas Männschen Problem bitte um Hilfe

[semo]

fangen wir mal ganz klein an:

Delphi-Quellcode:

const
  iKopfdurchmesser = 10;
  iKoerperHoehe    = 50;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  x := 0;
  y := Form1.Height-2*iKopfdurchmesser-iKoerperHoehe;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  Form1.Canvas.Ellipse( x-iKopfdurchmesser,
                        y-2*iKopfdurchmesser-iKoerperHoehe,
                        x+iKopfdurchmesser,
                        y-iKoerperHoehe);
  Form1.Canvas.moveto(x,y);
  Form1.canvas.LineTo(x,y-iKoerperHoehe);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Inc(x);
  Form1.Repaint;
end;

danach kann man dann mal berücksichtigen ob er nun an die linke seite des formulars anschlägt oder an die rechte und dann muss man die laufrichtung wechseln