[ronalg]

Diculpa, pero tu codigo esta un poco desordenado, te aconsejo que repases un poco mas la bibliografia, sobre todo la de Ian Marteens "La cara coulta del delphi 4", aun es muy util para aprender lo basico en el manejo de base de datos http://www.latiumsoftware.com/descarga/lcod4.php

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin
table1.Insert;
table1.Edit;
DBEdit2.SetFocus;
s:= s + 1;
Panel1.Caption:=IntToStr(S);
DBEdit1.Text:=IntToStr(s);
s:= s + Table1IDCODIGO.Value;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
table1.Post;
table1.First;
table1.Refresh;
end;

Primero: No puedes hacer esto.

Código Delphi [-]
begin
table1.Insert;
table1.Edit;

Deberias hacer esto:

Código Delphi [-]
procedure TForm1.bt_InsertarClick(Sender: TObject);
begin
     if ibtable1.State=dsBrowse then
     begin
          ibtable1.Insert;
          //Luego el resto del codigo que quieras
          //no es muy eficiente lo que haces para generar
          //el nuevo codigo de tu registro, si estas
          //trabajando en red, tendras tarde o temprano problemas
          //mejor usa generadores y procedimientos alamcenados
     end
     else
     begin
          messagedlg('No es posible insertar datos en una tabla que se esta editando',mterror,[mbok],0);
     end;
end;

procedure TForm1.bt_guardarClick(Sender: TObject);
begin
     if ibtable1.State in [dsedit, dsinsert] then
     begin
          ibtable1.Post;
          //luego el codigo que quieras
          //no me parece "personalmente" que uses refresh cada ves que
          //inserta o editas datos, porque este se realiza automáticamente
          //ademas hacer esto con tablas consume recursos
     end
     else
     begin
          messagedlg('Si no esta editando o insertando no puede realizar un post',mterror,[mbok],0);
     end;
end;

Espero te ayude.

Saludos