Source position: commodities.pas line 264
procedure SetTranslate(
translator: pCxObj;
events: pInputEvent
);