[jafera]

Solucionado.

El problemna estaba en este pedazo de código:

Código Delphi [-]
 
procedure TF_ModulDades.RebutI1Change(Sender: TField);
begin
        if RebutI1.Value = 'S' then
        begin
                RebutTI1.Value := RebutCAMPIONAT.Value;
        end;
        if RebutI1.Value = 'N' then
        begin
                if  F_Rebut.DBEdit1.Text <>'' then
                begin
                        F_Rebut.Posa_N.Close;
                        F_Rebut.Posa_N.UnPrepare;
                        F_Rebut.Posa_N.SQL.Text:= 'UPDATE RE0007 SET CAMPIONAT = ''N'' WHERE ID_REBUT =:ID_REBUT';
                        F_Rebut.Posa_N.ParamByName('ID_REBUT').AsInteger := RebutID_REBUT.Value; // aqui yo tenia StrToInt(DBEdit1.Text) y evidentemente DBEdit1.Text tenia como valor el registro anterior
                        F_Rebut.Posa_N.Prepare;
                        F_Rebut.Posa_N.Open;
                        RebutAux.Close;
                        RebutAux.Open;
                end;
        end;
end;

Gracias a todos por vuestro interés.

Josep