[nextor]

Hola de nuevo amigos del mejor foro de delphi!!

Primera mente quiero agradecer por toda su ayuda, ya que por medio de esta pagina he solucionado muchos problemas.

pero mi problema es el siguiente: en un proyecto de delphi tengo un form con los siguientes componentes:

Código Delphi [-]
  Table1: TTable;
    Table2: TTable;
    Database1: TDatabase;
    Database2: TDatabase;
    Button1: TButton;
    Query1: TQuery;
    Query2: TQuery;

lo que estoy tratando de hacer es que de una base de datos pasar datos de una tabla a otra base de datos mediante un querys
algo asi:

Código Delphi [-]
 
procedure TForm1.Button1Click(Sender: TObject);
var cont:integer;
begin
cont:=0;
showmessage('iniciado');
with database2 do
  begin
    Close;
    Open;
  end;
with query2 do
  BEGIN
    close;
    SQL.Text:='select * from vw_movimientos';
    open;
    first;
    database1.Close;
    database1.Open;
    showmessage(IntToStr(RecordCount));
    for cont:=0 to RecordCount -1 do
    begin
      query1.Close;
      query1.SQL.Text:='insert into vw_movimientos(fecha) values (''' +fields[0].AsString + ''') ';
      query1.ExecSQL;
      query1.Close;
      query2.Next;
    end;
    database1.Close;
    close;
  end ;
 showmessage('finalizado');
end;

pero solo me copia 65,904 registros de 2,300,000 alguien tiene idea de por que pasa esto?

Gracias