Extract function

function Extract<T>(var from: T): T; overload

An experiment, built from development snapshots. Not the official Free Pascal or Lazarus documentation.