[Pyro]

я objectlist-ы использовал из модуля contnrs(если не ошибся)
типа того:

PHP код:

TEvent = class
  public
    at: Integer;
    action: TProc;
    constructor Create(time: integer; event: TProc);
  end;

// timeline -objectlist 
timeline.add(TEvent.Create(time, event));

  for i := 0 to timeline.Count - 1 do
     (timeline.Items[i] as TEvent).at = currenttime then 


если у objectlist свойство ownsobjects(вроде бы) не поменять он ещё и освобождать объекты при удалении будет