Duplicar una tabla con otro nombre dentro de una base de datos de access desde delphi

[feliz-58]

tengo este codigo para copiar una tabla con otro nombre diferente dentro de una misma base de datos:

Código Delphi [-]
...
implementation
procedure CloneTable(aTable: TADOTable; aQuery: TADOQuery;
  const NewTableName: string);
var
  i   : Integer;
  Str : string;
begin
  Str := 'SELECT ';
  for i := 0 to aTable.FieldCount-1 do
    Str := Str + aTable.Fields[i].FieldName + ', ';
  SetLength(Str, Length(Str)-2); 
  Str := Str + ' INTO ' + NewTableName + ' FROM '+ aTable.TableName;
  with aQuery do
  begin
    Close;
    SQL.Text := Str;
    ExecSQL;
  end;
end;


{$R *.dfm}

y la llamada:

Código Delphi [-]
procedure TNuevo_empleado.Button1Click(Sender: TObject);
begin
CloneTable(ADOTable1, ADOQuery1, Edit1.Text);
showmessage ('Su Nuevo Empleado a sido agregado');
edit1.Clear;
end;

La pregunta es, como copiar una tabla en espesifico, por el nombre, es decir, siempre tener como modelo la tabla llamada "original"?

Base de datos en Access, ADOconection, ADOtable, ADOquery.

gracias