Casimiro gracias por contestar,
Perdón no me da error sino simplemente no hace la operación de copiado de estructura. Te transcribo lo que hago :
Código Delphi
[-]IF MESSAGEDLG('ESTA SEGURO DE INICIAR UN NUEVO PEDIDO',MTCONFIRMATION,[MBYES,MBNO],0,MBNO) = MRYES THEN BEGIN
PEDIDO.Close;
LIMPIAR.SQL.Text:='INSERT INTO PEDIDOS(RENGLON,CANTIDAD,ARTICULO,MARCA,PRECIO,SUBTOTAL,CODIGONUM,UBICACION) SELECT RENGLON,CANTIDAD,ARTICULO,MARCA,PRECIO,SUBTOTAL,CODIGONUM,UBICACION FROM ORIGINAL';
LIMPIAR.ExecSQL;
PEDIDO.Open;
END