Delphi - Tablas en Delphi

Como puedo hacer copias de tablas desde Delphi 6.0, copiar la estructura de la tabla vacia, y algunas con sus respectivos registros

usa el componente TBatchMove, con ese puedes copiar tablas, registros, etc.

procedure CopiarEstructuraDbf(origen: TTable; BD,Destino: string);
var NuevaEstructuraDB: TTable;
begin
NuevaEstructuraDB:= TTable.Create(self);
with NuevaEstructuraDB do
begin
Databasename := BD;
Tablename := Destino;
FieldDefs.Assign(origen.FieldDefs);
CreateTable;
NuevaEstructuraDB.Destroy;
end;
end;

asi: CopiarEstructuraDbf(Table1,'AliasCopia','Copia.db');

//si no le pones la ruta, la tabla se crea en el mismo directorio de la captura.

hojala que me puedan ayudar estoy tratando de copiar la tabla con ese prodecimiento pero lo quiero hacer con un boton se puede? gracias de antemano