vrt_cpyfm

procedure vrt_cpyfm(

  handle: SmallInt;

  vr_mode: SmallInt;

  const pxyarray: ARRAY_8;

  const psrcMFDB: TMFDB;

  const pdesMFDB: TMFDB;

  const color_index: ARRAY_2

); overload;