Moin...
du bastelst dir dein eigenes Event und löst es im OnTimer aus und übergibst soviele Parameter wie du vorgibst. Deine "Auswertung verknüpfst du dann mit deinem Event statt mit OnTimer.
Delphi-Quellcode:
TMeinEvent = procedure(Sender: Tobject; aIndex: Integer) of object;
.
FMeinEvent: TMeinEvent; // und als Property MeinEvent nach außen verfügbar machen
.
MeinEvent:= MeineProcedure;
.
Layer_Timer[i] := TTimer.Create(Self);
Layer_Timer[i].Tag := i;
.
Layer_Timer[i].OnTimer := MeinOnTimer;
.
.
procedure MeinOnTimer(Sender: TObject);
begin
if Assigned(FMeinEvent) then
FMeinEvent(Sender,Sender.Tag);
end;
procedure MeineProcedure(Sender: TObject; aIndex);
begin
// deine Auswertung
end;
...einfach so runtergetippt mithalboffenen Augen
Hoffe es gibt zumindest Denkansatz.