Rutina muy lenta...

[xander]

Mejor haz un procedimiento almacenado que haga esas operaciones y solo mandalo a llamar desde tu programa.

Seguro que si lo haces asi si se tarda 50 milisegundos será mucho tiempo.

Ahora si no quieres hacerme caso con lo del procedimiento almacenado prueba poner esto antes de ejecutar tu código:

Código Delphi [-]
  DM.TListasClientes.DisableControls;
  DM.TArticulos.DisableControls;
  DM.TPedidosDetallados.DisableControls;

y al final le pones:

Código Delphi [-]
  DM.TListasClientes.EnableControls;
  DM.TArticulos.EnableControls;
  DM.TPedidosDetallados.EnableControls;