Source position: googlegan.pp line 504
protected procedure TEventTypeproductsItem.SetunitPrice(
AIndex: Integer;
AValue: TMoney
); virtual;