delphi 获取存储过程的值解决思路

delphi 获取存储过程的值
Create Proc P_AA
(    @CountRows INT, --返回记录总数

    @CountPage INT --返回总页数
)
AS
set @Sqls = 'select @a=count(1)  from tb

exec sp_executesql @sqls,N'@a int output',@CountRows OUTPUT


-----返回总页数

if @CountRows <= @PageSize
  set @CountPage = 1
else

begin

    set @CountPage = @CountRows/@PageSize

    if (@CountRows%@PageSize) > 0

       set @CountPage = @CountPage + 1
      
END


delphi 怎么获取返回的值啊？
[解决办法]
Create Proc P_AA
( @CountRows output, --返回记录总数

  @CountPage output--返回总页数
)