Problemas al Insertar registros de una tabla a otra periódicamente

[bucanero]

hola a todos!!

Prueba añadiendo un SQL.clear antes de hacer la consulta INSERT INTO (linea en rojo del código)

Código Delphi [-]
procedure TFprincipal.THaonlineTimer(Sender: TObject);
var
  idprimero: integer;
begin
  Consulta.Close;
  Consulta.SQL.clear;
  Consulta.SQL.Add('INSERT INTO ' + Tabladestino.TableName + ' SELECT * FROM ' + TablaOrigen.TableName + ' ORDER BY ID ASC LIMIT 100');
  Consulta.ExecSQL;
  Tabladestino.ApplyUpdates;

  TablaOrigen.Open;
  TablaOrigen.first;
  idprimero := TablaOrigen.Fieldbyname('ID').asinteger;
  Consulta.Close;
  Consulta.SQL.Clear;
  Consulta.SQL.Add('DELETE FROM ' + TablaOrigen.TableName);
  Consulta.SQL.Add(' WHERE ID>=:miID1 AND ID<=:miID2');
  Consulta.ParamByName('miID1').asinteger := idprimero;
  Consulta.ParamByName('miID2').asinteger := idprimero + 99;
  Consulta.ExecSQL;
  TablaOrigen.ApplyUpdates;
  TablaOrigen.close;
end;