Hola.
Perdón, cambiá el nombre del parámetro 'Connection' por 'aConnection'.
Código Delphi
[-]
procedure CloneTable(const NewTableName: string; aConnection: TADOConnection);
begin
with TADOQuery.Create(nil) do
try
Connection := aConnection;
Close;
SQL.Text := 'SELECT * INTO ' + NewTableName + ' FROM llllllllll';
ExecSQL
finally
Free
end
end;
Saludos.
Edito: No había visto el mensaje de
TOPX, que ya aclaraba el problema.