Source position: googlegan.pp line 558
protected procedure TEvent.Setproducts(
AIndex: Integer;
AValue: TEventTypeproductsArray
); virtual;