AppendPaths

procedure AppendPaths(var paths: TPathsD; const extra: TPathsD);