Delphi - como usar sentencias SQL en delphi

procedure TForm1.Button1Click(Sender: TObject);

var sId: string;

begin

  sId := '1';//Aqui iria la clave id que identifica a la factura que vas a insertar

  //Esto en el supuesto de que tu sistema sea cliente - servidor

  ADOQuery1.Close;

  ADOQuery1.SQL.Clear;

  ADOQuery1.SQL.Add('insert into tabla1 select * from tabla2');

  ADOQuery1.SQL.Add('where CampoId = ' + sId);//En caso de querer enviar toda la tabla, hay que quitar esta linea

  ADOQuery1.ExecSQL;//<-- Hay que tener cuidado con esta linea, pues existe el procedimiento Open

  //Se diferencia de éste pues el ExecSQL es para hacer insert y update, los cuales no regresan resultados

  //Y el Open se usa cuando quieres ver registros de alguna tabla

end;

MODULO.adoquery1.Close;

MODULO.adoquery1.SQL.Clear;

MODULO.adoquery1.SQL.Add('insert into detalle select * from dettem');

MODULO.adoquery1.SQL.Add('where clave_caja =' + id_claveCaja);//suponiendo que id_claveCaja es una variable tipo string con la clave de la caja que vas a mover

MODULO.adoquery1.ExecSQL;//algo asi, puede ser diferente entre componentes, pero debe llevar exec