[Pablo Carlos]

Hola... podrías usar el evento AfterOpen del Query y teclear algo asi

Código Delphi [-]
 Query.First;
 With Query do
  begin
     While not eof do
      begin
       Tabla.Insert;
       Tabla1.Campo.AsInteger := FieldByName('Campo').AsInteger;
       Tabla1.Post;
       Query.Next;
      end;
  end;

Saludos bye