Stored Procedure with input values

Hi All,

I have a small routine which after applying several updates to a table, does
some things with that data and then goes back through those same applied
records and alters one field using a stored procedure.

Problem is that the data gets added ok and the I fire the SP ok with no
errors but the field I want to change doesn't get changed.
My routine (in part) is as follows:

    with dm.sp1 do begin
        StoredProcName := 'P_OCC_SET_CONF';
        Params.CreateParam(ftInteger, 'NEW_OCC_ID', ptInput);

         for iC := 0 to Length(arNewOccs) -1 do begin
                      parambyName('NEW_OCC_ID').AsInteger := arNewOccs[iC];
                      ExecProc;
         end;
    end;

and my SP in the table is:
CREATE PROCEDURE P_OCC_SET_CONF(NEW_OCC_ID INTEGER) AS
BEGIN
 update OCCUPANTS
 set
 OCC_CONF_FAXED = 'Y'
 WHERE OCC_ID = :NEW_OCC_ID;
END!

I hope someone can show me the error of my ways.
Simon