如何用Tquery执行存储过程并获得其输出变量(100分)

本人想用delphi调用sybase的存储过程，并获得其返回值
，存储过程大概如下
create procedure dbo.compute
@m1 int,@m2 int,@result varchar(6) output
as
select @result=@m1*@m2
本人想用BDE的TQUERY控件来实现，不想用ADO或BDE的Tstoredproc控件
实现，但不知如何调用参数，并将输出参数赋予一个变量，我写了下列语句后，
总报错，请各位大侠给出正确的写法
m1,m2,m3,result：integer;
query1.close;
query1.sql.clear;
query1.sql.add('execute compute :m1,:m2,:result output')
query1.param[0].asinteger:=m1;
query1.param[1].asinteger:=m2;

query1.execsql;
result=query1.parambyname(result).asinger;
在执行后，总是报错，说result未定义
我估计输出参数写法不对，但不知如何书写，怎么访问存储过程的输出参数即返回值，请
帮我一个忙