Не работает TStoredProc

if(StoredProcGetID->ParamByName("@TableName")->AsString!="TRIPS")
 {
  StoredProcGetID->ParamByName("@TableName")->AsString="TRIPS";
  StoredProcGetID->ParamByName("@GroupId")->AsInteger=1;
  StoredProcGetID->ParamByName("@Res")->AsInteger=1;
  StoredProcGetID->Prepare();
 }
 StoredProcGetID->ExecProc();
 return StoredProcGetID->ParamByName("@Res")->AsInteger;

create procedure GetNextID @TableName char(40),@GroupId int,@Res int out AS
begin

declare @NextId Integer
BEGIN TRAN
SELECT @NextId=TblIds.NextId FROM
TblIds (UPDLOCK)
WHERE (TblIds.TableName=@TableName) AND (TblIds.GroupId=@GroupId)

IF @@ROWCOUNT=0
BEGIN

 INSERT INTO TblIds (TableName,NextId,GroupId)
  SELECT @TableName,KEYVALINT+1,@GroupId FROM SETUP WHERE KEYNAME='FIRSTID'
 SELECT @NextId=KEYVALINT FROM SETUP WHERE KEYNAME='FIRSTID'
END
ELSE

 UPDATE TBLIDS SET TblIds.NextId=TblIds.NextId+1
 WHERE (TblIds.TableName=@TableName) AND (TblIds.GroupId=@GroupId)

COMMIT TRAN
SELECT @Res=@NextId

END


GO

with GetIdSP do
 begin
  if ParamByName('@TableName').AsString<>'TRIPS' then
  begin
   ParamByName('@TableName').AsString:='TRIPS';
   ParamByName('@GroupId').AsInteger:=1;
   Prepare;
  end;
  ExecProc;
  Result:=ParamByName('@Res').AsInteger;
 end;