AppendPath

procedure AppendPath(var path: TPathD; const extra: TPathD);