El código que has colocado está mal,
Código Delphi
[-]
procedure TFunidades.Button1Click(Sender: TObject);
var
s:String;
begin
s:='';
if RadioGroup1.ItemIndex = 0 then
s:= 'A'
else
s:= 'I';
DBactivo.Text:=s;
Tunidades.Edit;
Tunidades.Post;
Tunidades.Insert;
Tunidades.Edit;
Tunidades.FieldByName('fecha_registro').Value:=DateToStr(Date);
Tunidades.FieldByName('fecha_modificacion').Value:=DateToStr(Date);
Tunidades.FieldByName('usuario_registro').Value:=usuario;
Tunidades.FieldByName('usuario_modificacion').Value:=usuario;}
conteo:=conteo + 1;
Tunidades.FieldByName('cod_unidad').Value:=conteo;
DBedit2.SetFocus;
showmessage('El registro se guardo satisfactoriamente');
end;
Antes de mostrar el mensaje que "los registros se han guardado satisfactoriamente"
primero debes de llamar a POST.
debería de quedarte algo así
Código Delphi
[-]
procedure TFunidades.Button1Click(Sender: TObject);
var
s:String;
begin
s:='';
if RadioGroup1.ItemIndex = 0 then
s:= 'A'
else
s:= 'I';
DBactivo.Text:=s;
Tunidades.Edit;
TUnidades.Insert;
Tunidades.FieldByName('fecha_registro').Value:=DateToStr(Date);
Tunidades.FieldByName('fecha_modificacion').Value:=DateToStr(Date);
Tunidades.FieldByName('usuario_registro').Value:=usuario;
Tunidades.FieldByName('usuario_modificacion').Value:=usuario;}
conteo:=conteo + 1;
Tunidades.FieldByName('cod_unidad').Value:=conteo;
TUnidades.Post;
DBedit2.SetFocus;
showmessage('El registro se guardo satisfactoriamente');
end;