[dao_ar]

Hola gente

Necesito desasnarme (y mucho), con un tema : Tengo un objeto, en mi caso el TJvDesktopAlert (jedi) que es un mensaje emergente. necesito realizar varias instancias (dinamicas) de el, hasta aqui no hay problemas, el tema es que como TJvDesktopAlert tiene el evento onClose (como todo dialogo) quiero que ese evento se ejecute para todas las instancias creadas, he probado de todas las formas y no consigo que se execute decentemente. alguien podra acercar alguna idea ?

Código Delphi [-]
....
type
  TForm1 = class(TForm)
    Alerta: TJvDesktopAlert;
    procedure AlertaClose(Sender: TObject);
...
....
procedure ....
var
  i,n:integer;
begin
for i:=1 to n do
begin
    Alerta:=TJvDesktopAlert.Create(form1);
    ...
    Alerta.execute;
end;

procedure TForm1.AlertaClose(Sender: TObject);
begin
  .......
end;

Gracias a todos