Clave primaria a 0

[aromigaret]

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