Añadir registro en tabla firebird si la tabla está vacia

[jafera]

Código Delphi [-]
 
procedure TF_RebutFP.ToolButton1Click(Sender: TObject);
var id: integer;
begin
        ToolBar1.Visible := False;
        ToolBar2.Visible := True;
        Max_Id.Close;
        Max_Id.Open;
        id := Max_IdMAX.Value+1;
        F_ModulDades.RebutFP.Append;
        F_ModulDades.RebutFPID_REBUT.Value := id;
        F_ModulDades.RebutFPDATA.Value := Date;
        F_ModulDades.RebutFPDATA.FocusControl;
end;

Con el código así id coge el valor 0 de entrada y 1 al pasar por la linea de asignación.

Lo que me pasa ahora es que cuando entro en la linea del append me dice not in edit mode

Ahora si que estoy ligeramente perdido.

Saludos