Fórum Alguem me ajuda com uma query #268097

Estou querendo inserir uns 10.000 em meu banco de dados usando TTable, quando chega no registro 3.600 o sistema trava. Se eu usar a query acho que esse problema vai acabar, só que nunca utilizei para inserir registro. Sera que alguem pode me ajudar nessa, o codigo que eu uso esta abaixo, como eu passaria ele para uma query?


for i:= 1 to 10.000 do
begin
dm.TabClientes.Insert;
dm.TabClientesCODIGO.AsString:= formatcurr(´00000´,controle);
dm.TabClientesNOMECLI.AsString:= ´JOSE DONIZETE DOS SANTOS´;
dm.TabClientesENDECLI.AsString:= ´RUA PEDRO DIAS AZEVEDO, 23´;
dm.TabClientesCIDACLI.AsString:= ´SOROCABA´;
dm.TabClientes.Post;
controle:= controle + 1;
end;