Incluir varios registros

Boa tarde!

Meu cliente me pediu para que qndo ele pedir para incluir um novo registro, ele faça pelo menos uns 10 registros automáticos, que depois ele possa editar....alguns campos tenho que incluir juntos como, incrementar o nr da fatura, que tem q ser o nr da ultima fatura + 1;

Tentei esse código mas dá erro qndo dou um post.

procedure TDMCADASTRO.incluir_fatura_avulsa;
Var
i: Integer;

begin
For i := 1 to 10 do
begin

 DMCADASTRO.TBFATURAS.Open;
 DMCADASTRO.TBFATURAS.Insert;
 DMCADASTRO.TBFATURASLANCADO_POR.AsString := DMCADASTRO.UsuarioLogado.Nome;
 DMCADASTRO.TBFATURASDATA_LANCAMENTO_FATURA.Value := Now;
 DMCADASTRO.TBFATURASNR_FATURA.Value := DMCADASTRO.TBFATURASNR_FATURA.Value + 1;
 DMCADASTRO.TBFATURASPAGO.AsString := 'NAO';
 DMCADASTRO.TBFATURASANULADO.AsString := 'NAO';
 DMCADASTRO.TBFATURAS.Post;
 end;
end;

Quando chega no comando Post da o erro cannot focus a disabled or invisible window....

Se alguém puder me ajudar...

Fico no aguardo.

Obrigada!