Changed to Copy(TObject &A) to appease the HP-compiler

No match.