执行ORACLE存储过程的问题(100分)

存储过程中有以下语句：
lock table table1 in exclusive mode nowait;但没加任何解除锁定的语句（好象是会自动解锁的），
执行该过程的代码
var
sp : tStoredProc;
begin
sp := TStoredProc.Create(nil);
try
try
sp.DatabaseName := dmMain.DB.DatabaseName;
sp.SessionName := dmMain.db.SessionName;
sp.StoredProcName := STAT';
sp.Params.CreateParam(ftInteger,'aaa',ptInput);
sp.ParamByName('aaa').asInteger := 1;
sp.ExecProc;
result := true;
except
result := false;
end;
finally
freeandnil(sp);
end;
很成功，但是之后对表table1的更新操作都提示被锁或者是一直处于等待状态，但如果我再次运行存储
过程又没任何问题。怎么解决啊？
急用啊！谢谢。