insert que no funciona

[kryna]

hola!!!

mi problema consiste en que esoy insertando registros en tablas paradox(son 3)
y en la tabla no me lo esta insertando como deberia me esta sbreescribiendo el registro anterior.. me explico

cuando inserto el registro 1 me lo copia en la fila cuyo indice numero1
cuando inserto el registro 2 me lo copia en la fila cuyo indice es numero 2 pero tambien el la fila anterior (osea la fila 1)..
cuando inserto el registro 3 me lo copia en la fila cuyo indice es numero 3 pero tambien el la fila anterior (osea la fila 2)...
osea me lo copia en la fila ql corresponde y tambien el la fila anterior..

 if not Tbconcepto.active then Tbconcepto.open;
Tbconcepto.Insert;
Tbconcepto.FieldByName('cod_concepto').AsString := clave5;
Tbconcepto.FieldByName('cod_especialidad').AsString := clave;
Tbconcepto.FieldByName('descripcion_concepto').AsString := clave3;
  try
	Tbconcepto.Post;
  except
	Showmessage('Error insertando registro');
  end;
Tbconcepto.FlushBuffers;
Tbconcepto.Close;
if not Tbcostos.active then Tbcostos.open;
Tbcostos.Insert;
Tbcostos.FieldByName('cod_concepto').AsString := clave5;
Tbcostos.FieldByName('costo').AsString := clavem;
Tbcostos.FieldByName('fecha').AsString := clavef;
try
	Tbcostos.Post;
  except
	Showmessage('Error insertando registro');
  end;
Tbcostos.FlushBuffers;
Tbcostos.Close;
if not Tbespecialidad.active then Tbespecialidad.open;
Tbespecialidad.Insert;
Tbespecialidad.FieldByName('cod_especialidad').AsString := clave;
Tbespecialidad.FieldByName('descripcion_especialidad').AsString := clave4;
Tbespecialidad.FieldByName('orden').AsString := claveo;
Tbespecialidad.FieldByName('nota').AsString := claven;
try
	Tbespecialidad.Post;
  except
	Showmessage('Error insertando registro');
  end;
Tbespecialidad.FlushBuffers;
Tbespecialidad.Close;

A otra cosa estoy usando entes de la insercion un Tquery para verificar si existe o no el registro..

kryna