怎样在DELPHI中调用SQL SERVER中的函数,怎样调用带有OUTPUT的SQL SERVER 存储过程

create function getpower(@workerno varchar(4),@menuid varchar(10)) 

returns int as

begin

return 1;

end





create proc getnewticketno(@newticketno varchar(20) output)

as

begin

  set @newticketno = 'fdsafdsa'

end

begin

adodataset1.Close;

adodataset1.CommandText:='select dbo.getpower(''1'',''2'') as p';

adodataset1.Open;

if not adodataset1.IsEmpty then

begin

  showmessage(inttostr(adodataset1.FieldByName('p').AsInteger));

end;



adocommand1.CommandType:= cmdStoredProc;

adocommand1.CommandText:='getnewticketno';

adocommand1.Parameters.CreateParameter('@newticketno',ftstring,pdoutput,4,'');

adocommand1.Execute;

showmessage(adocommand1.Parameters[0].Value);

end;