List index out of Bounds (-1)

Olá!
Sou Desenv. D7 + IB/FB + DBExpress.

Tenho a seguinte dúvida:

TEnho um Botão Gravar, q deve ser pressionado após preencher os dados do form, acontece q ao gravar, faço um pergunta se o usuario q gravar novo registro, se sim executo um Append na tabela e um erro é exibido ´List index out of bound (-1)´.


1-Descobri q enquanto estou dentro da rotinas de Gravar_botao,
este erro acontece, e se eu desviar o foco para outro botão ou outro componente, forço sai da rotina, o erro não acontece.
Alguem poderia me explicar pq acontece este erro ?

Puxa! quase fiquei louco até descobri isto.



-----------------------------------------------
Procedure Botao_Gravar();
Begin

....
Cds_Tabela.Post;

Cds_Tabela.AppluUpDates(0);

If Deseja_gravar_novo_registro Then
Cds_Tabela.Append;


Ed_Data.Setfocus; //....se eu fizer isto, o erro não acontece
End;
-----------------------------------------------

Desde já meus agradecimentos, a quem puder ajudar.

100+

ANT.CARLOS/SP