[icWasya]

Код:

procedure Form1.Button1Click(Sender:TObject);
begin
  Timer1.Enabled:=True;
end;

procedure Form1.Button2Click(Sender:TObject);
begin
  Timer1.Enabled:=false;
end;

procedure Form1.Timer1OnTimer(Sender:TObject);
begin
  PaintBox1.Invalidate;
end;

procedure Form1.PaintBox1OnPaint(Sender:TObject);
begin
.........................................
PaintBox1.Canvas.Rectangle...
PaintBox1.Canvas.MoveTo...
PaintBox1.Canvas.LineTo...
......................................
// и т.д.
end;

А если надо что бы картинки менялись, то внутри PaintBox1OnPaint нужно выбирать, какую картинку и где рисовать, а внутри Timer1OnTimer увеличивать номер картинки