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