Как нарисовать на форме в delphi анимацию?

[tsar_]

Куда же вы?
Я вот воплотил в коде все, что тут наговорил. На форму кидаешь Button (для запуска и остановки анимации) и Timer (поставь Timer1.Enabled:=false в инспекторе объектов). Модуль к форме:

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure Line(Cvs: TCanvas; x1, y1, x2, y2: integer);
begin
  Cvs.MoveTo(x1, y1);
  Cvs.LineTo(x2, y2);
end;

//procedure

procedure TForm1.Button1Click(Sender: TObject);
begin
 timer1.Enabled:=not timer1.Enabled;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Canvas.Pen.Color := clBtnFace;
  Canvas.Brush.Color := clBtnFace;
  Canvas.Rectangle(0,0,ClientWidth,ClientHeight);

  Canvas.Pen.Color := clblack;
  Canvas.Brush.Color := ClWhite;
  Canvas.Ellipse(200, 140, 250, 190);
  Line(Canvas, 229, 191, 229, 355);
  Line(Canvas, 192, 224, 228, 224);

  if timer1.Tag=0 then
   begin
   Line(Canvas, 191, 223, 152, 238);
   timer1.Tag:=1;
   end
  else
   begin
   Line(Canvas, 191, 223, 180, 180);
   timer1.Tag:=0;
   end;

  Line(Canvas, 231, 224, 274, 223);
  Line(Canvas, 274, 223, 297, 188);
  Line(Canvas, 225, 350, 150, 399);
  Line(Canvas, 153, 399, 150, 469);
  Line(Canvas, 151, 469, 117, 470);
  Line(Canvas, 231, 349, 306, 397);
  Line(Canvas, 307, 398, 308, 459);
  Line(Canvas, 308, 461, 344, 461);


end;

end.

Мелькает, но работает: машет...