Source position: uPSRuntime.pas line 964
procedure VSetPointerTo(
const Src: PIFVariant;
Data: Pointer;
aType: TPSTypeRec
);