AppendPath

procedure AppendPath(

  var paths: TPaths64;

  const extra: TPath64

); overload;

procedure AppendPath(

  var paths: TPathsD;

  const extra: TPathD

); overload;