Por favor cambie las siguientes dos líneas:
Código Delphi
[-]procedure CloneTable(const NewTableName: string; Connection: TADOConnection);
por
Código Delphi
[-]procedure CloneTable(const NewTableName: string; aConnection: TADOConnection);
y
Código Delphi
[-]Connection := Connection;
por
Código Delphi
[-]Connection := aConnection;
-