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