Creacion dinamica de un TAnimate

[hermes_32]

Hola amigos. Como estais?
Mirad, tengo un problema al crear un TAnimate dinamicamente, y el problema esta en que no se me ejecuta el evento OnStop al terminar la secuencia avi.

Tengo el código siguiente:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Animate1: TAnimate;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure Terminaya(Sender : Tobject);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var Animacion : TAnimate;
begin
  Animacion := TAnimate.create(self);

  with Animacion do begin
   parent := self;
   parentcolor := False;
   FileName := ruta del avi;
   StartFrame := 1;
   StopFrame := 8;
   CommonAVI := aviNone;
   Repetitions := 1;
   top := 10;
   left := 50;
   visible := True;
   Transparent := false;
   color := clWhite;
   onStop := Terminaya;
   active := True;
  end;
end;

procedure TForm1.Terminaya(Sender: Tobject);
begin
   showmessage('ya se ha terminado');
end;

end.

No se cual es el problema pero cuando termina el avi, no sale el mensaje que tiene que salir. Qué estoy haciendo mal?

Gracias por la atención.