Source position: uPSR_extctrls.pas line 12
procedure RIRegisterTSHAPE(
Cl: TPSRuntimeClassImporter
);