tobjectlinker

type tobjectlinker = class(trecordlist)

public

  constructor create();

  destructor destroy; override;

  procedure link();

  procedure unlink();

  function linkedobjects();

  procedure setlinkedvar();

  procedure setlink(); overload;

  procedure sendevent();

  procedure objevent();

  procedure forall();

  procedure forfirst();

end;

tobjectlinker

trecordlist

tnullinterfacedobject

TObject,iunknown