Sistema via internet - loop em mysql

Desenvolvi um sistema q integra as filiais e envia o movimento financeiro para um banco na net , minha dúvida é o seguinte . O loop q o sistema faz abaixo demora muito para ser concluido devido a quantidade de registros . O q posso fazer com o código abaixo para se tornar mais rápido ? Lembrando apenas q leio a tabela em formato dbf e jogo para mysql . Agradeço por qualquer ajuda .

zconnection1.StartTransaction;
while not caixa_p.eof do
begin
try
fonte.SQL.Clear;

fonte.sql.Add(´insert into ´+banco+´(historico,data_mov,entrada,saida) values (:vhistorico,:vdata_mov,:ventrada,:vsaida)´);

fonte.Params[0].AsString:=caixa_p.fieldbyname(´historico´).Value; fonte.Params[1].AsDate:=caixa_p.fieldbyname(´data´).Value;
fonte.Params[2].AsString:=caixa_p.fieldbyname(´entrada´).Value;
fonte.Params[3].AsString:=caixa_p.fieldbyname(´saida´).Value;
fonte.ExecSQL;
caixa_p.Next;

except
zconnection1.Rollback;
errocommit.ShowModal;

end;
end;
tudocerto.ShowModal;
zconnection1.Commit;
end;