Copiar todo el resultado de un Filtro (DBGrid) en Tabla

[Lenny]

Bueno, esa es la pregunta, si pudieran darme una mano, Como puedo copiar el resultado de un filtro (Almacenado en un DBGrid) a la base de datos??? Necesito filtrar productos asociados a una OT y estos copiarlos a otra tabla y eventualemnte borrar el contenido del filtro, para copiar un solo registro simepre lo hago asi:

Código Delphi [-]
procedure TOTrabajo.Button4Click(Sender: TObject);
begin
  if Application.MessageBox('La orden de Trabajo será enviada a Producción.','PRODUCCION',mb_Ok +
  mb_IconQuestion)= idOk then
BDatos.TOTPENDIENTE.Insert;
BDatos.TOTPENDIENTE.FieldbyName('OT').AsString := BDatos.TOTHISTORICO.FieldbyName('OT').AsString;
BDatos.TOTPENDIENTE.FieldbyName('RUT').AsString := BDatos.TOTHISTORICO.FieldbyName('RUT').AsString;
BDatos.TOTPENDIENTE.FieldbyName('CLIENTE').AsString := BDatos.TOTHISTORICO.FieldbyName('CLIENTE').AsString;
BDatos.TOTPENDIENTE.Post;
BDATOS.TOTPRODUCCION.Refresh;

end;

Hay alguna forma de recorrer todo el DBGrid (Previamente Filtrado) y copiar a una tabla solo el contenido de este??? y eventualente borrar el contenido del DBGrid????De antemano muchas gracias... espero no estar abusando... PD Utilizo Delphi 2010, Zeos y MySQL