Source position: dynamicarray.pas line 29
type TOnExchangeItem = procedure(
Sender: TObject;
Index: Integer;
WithIndex: Integer
) of object;