Delphi - Ayuda con append

Saludo,
Necesito que alguien vea esto, ya que cuando lo ejecuto en el onexit de un edit todos los registro caen sobre los otros y para verse todos hay que salir y entrar al programa.

uso db de sql server 2000.

if le=3 then
begin
dm.VENTEM.Append;
dm.VENTEMpunto.Value := strToInt(copy(entrada.Text,1,1));
dm.VENTEMnumero.Value := copy(entrada.Text,2,2);
dm.VENTEMvalor.value := dm.VENTEMpunto.value * 0.3;
dm.VENTEM.Post;
end;

gracias, foro.

{Prueva de esta forma...}

if le=3 then
begin
dm.VENTEM.last; {Esta es la modificacion}
dm.VENTEM.Append;
dm.VENTEMpunto.Value := strToInt(copy(entrada.Text,1,1));
dm.VENTEMnumero.Value := copy(entrada.Text,2,2);
dm.VENTEMvalor.value := dm.VENTEMpunto.value * 0.3;
dm.VENTEM.Post;
end;