problemas al guarda datos en tabla en intebase

[pharaonhx]

bueno la indea es que con el siguiente codigo

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;;


lleno el campo condigo de esta tabla y hace un incremento en el codigo cada vez que edito uno nuevo

pero cuando lo grabo no se guarda nada en la tabla, y no se porque porque la aplicacion no da error y hace el proceso en la ejecucion pero cuando la cierro y busco los datos en la tabla no aparesen.

acepto sugerencias y ideas