AppendPaths

procedure AppendPaths(

  var paths: TPaths64;

  const extra: TPaths64

); overload;

procedure AppendPaths(

  var paths: TPathsD;

  const extra: TPathsD

); overload;