Norm

function Norm(

  const v: TVector2f;

  const h: PSingle = Nil

):TVector2f; overload;

procedure Norm(

  var x: single;

  var y: single;

  const h: PSingle = Nil

); overload;

procedure Norm(

  var x: Double;

  var y: Double;

  const h: PDouble

); overload;