[angvelem]

По вопросу swf к его величеству Поиску, а с таймером примерно так:

Код:

var
  Count : Integer; // глобальная переменная
procedure Timer(Sender: TObject);
begin
  BitBlt(Куда (в какой Canvas.Handle->), x, y, width, height, Canvas[Count].Handle, 0, 0, SRCCOPY);
  inc(Count);
  if Count > Length(Canvas) then
    Count := 0;
end;