Source position: variants.pp line 272
type TVarDispProc = procedure(
Dest: PVariant;
const Source: Variant;
CallDesc: PCallDesc;
Params: Pointer
);