problema con borrado de datos de una tabla

[ecfisa]

Hola.

Agrega un TQuery al form y luego este código:

Código Delphi [-]
  // Pasar y borrar
  with Query1 do
  begin
    SQL.Text:='INSERT INTO TABLE7 * FROM TABLE6';
    ExecSQL;
    Close;
    SQL.Text:= 'DELETE FROM TABLE6';
    ExecSQL;
  end;

Saludos.