Generar evento en libreria
 

Hola a todos.
Lo que quiero hacer es generar un evento de un componente existente (ej. OnTimer) en una libreria.
Como podria hacerlo ?? He generado esta libreria y no doy pico en bola.
Si alguien pudiese decirme como se hace con un ejemplo se lo agradeceria.

Código Delphi [-]

library My_Dll;

 uses
  System.SysUtils,
  System.Classes,winapi.windows,Vcl.Dialogs,Vcl.ExtCtrls;

 var i:Integer;

{$R *.res}

procedure TiemTimer;
begin
 inc(i);
 ShowMessage(inttostr(i)) ;
end;

procedure pruebaTiempo ; stdcall;
var
 Tiempo:TTimer;
 pp:TComponent;
begin
  i:=0;
  Tiempo:=TTimer.Create(pp);                // Esto no creo que esté bien
  Tiempo.Name:='Tiempo'+IntToStr(I);
  tiempo.Interval:=5000;
  tiempo.Enabled:=True;
  tiempo.OnTimer:=TiemTimer;               // Error: Incompatible types: 'method pointer and regular procedure'
end;                                                

exports pruebaTiempo;

begin

end.

Gracias de antemano

Tal vez algo así es lo que necesitas...
No acabo de tener claro lo que quieres hacer, pero esto creo que hace lo que pretendes.

Código Delphi [-]
library My_DLL;

uses
  SysUtils,
  Classes, windows, Dialogs, ExtCtrls, forms;

type
  TestClass = class
  private
    Tiempo:TTimer;
    procedure MyOnTimer(Sender:TObject);
  public
    procedure init();
  end;

var
  i:Integer;
  t:TestClass;
  running:boolean;

{$R *.res}


procedure Finalizar; stdcall;
begin
  t.Tiempo.Enabled := False;
  running := true;
  t.Free;
end;

procedure pruebaTiempo ; stdcall;
begin
  t := TestClass.Create();
  running := true;
  t.init;
end;

procedure TestClass.init;
begin
  Tiempo := TTimer.Create(nil);
  i:=0;
  // Tiempo.Name:='Tiempo'+IntToStr(I);
  tiempo.Interval:=2000;
  tiempo.OnTimer := MyOnTimer;
  tiempo.Enabled:=True;  
end;


procedure TestClass.MyOnTimer(Sender: TObject);
begin
  inc(i);
  ShowMessage(inttostr(i)) ;

end;

exports pruebaTiempo;
exports Finalizar;

end.

(1) El componente puedes crearlo pasando un nil, pues no "pertenece" a ningún formulario.
(2) En cuanto al segundo error te está diciendo que el evento que asignes debe pertenecer a una clase.

Para hacer la llamada; Un proyecto con lo siguiente:

Código Delphi [-]
...

  procedure pruebaTiempo(); cdecl;  external 'My_DLL.dll';
  procedure Finalizar(); cdecl;  external 'My_DLL.dll';

var
  Form1: TForm1;

implementation

procedure TForm1.Iniciar(Sender: TObject);
begin
  pruebaTiempo;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Finalizar;
end;