Como criar um arquivo de Backup muito feio mais eficiente

procedure TFormCopia.BitBtn1Click(Sender: TObject);

var

I: Integer;

begin

Database1.Connected:=True; // Database para controle

Table2.DatabaseName:=DirectoryListBox1.Directory; // Seleciona local de destino da cópia

with Session1 do

begin

Active:=True;

GetTableNames('AliasName','*.*',True,True,Memo1.Lines); // Retorna o nome das tabelas

end;

for I:= 0 to Memo1.Lines.Count - 1 do

begin

Table1.TableName:=Memo1.Lines[I]; // Tabela origem

Table2.TableName:=Memo1.Lines[I]; // Tabela destino

BatchMove1.Execute;

end;

end; 

Para efetuar a restauração:

procedure TFormRestaura.BitBtn1Click(Sender: TObject);

var I: Integer;

begin

Database1.Connected:=True;

Table2.DatabaseName:=DirectoryListBox1.Directory; // Origem da restauração

with Session1 do

begin

Active:=True;

GetTableNames(Table2.DatabaseName,'*.*',True,True,Memo1.Lines); // Retorna nomes das tabelas

end;

for I:= 0 to Memo1.Lines.Count - 1 do

begin

Table1.TableName:=Memo1.Lines[I]; // Tabela origem

Table2.TableName:=Memo1.Lines[I]; // Tabela destino

BatchMove1.Execute;

end;

end;

//Após restaurar por este método, você deve recriar os índices.