[cloayza]

Amigo al mirar tú código veo que falta algo...

Código Delphi [-]
 
procedure TF_Rebut.ToolButton1Click(Sender: TObject);
var id: integer;
begin
        ToolBar1.Visible := False;
        ToolBar2.Visible := True;
        Max_Id.Close;
        Max_Id.Open;
        if Max_IdMAX.Text = '' then
        begin
                id:=1;
        end
        else
        begin
                id := StrToInt(Max_IdMAX.Text)+1;
        end;
        F_ModulDades.Rebut.Append;
        F_ModulDades.RebutID_REBUT.Value := id;
        F_ModulDades.RebutDATA.Value := Date;
        F_ModulDades.Rebut.Post;  {Guardar los datos del registro...}

        F_ModulDades.RebutDATA.FocusControl;
end;

Como estas tratando las transaciones...Recuerda poner ojo en ello...

Saludos cordiales