delphi调用javascript delphi调用sql存储过程

以ado为例，新增一个ADOStoredProc1，设置其connection属性为正确的连接，设置其procedurename为你所说的存储过程的名称，执行其open方法（或者execproc）。

在SQL上建了以下存储过程,请问在delphi中要如何调用?  
3.delphi 程序中调用（使用ADOConnect 和 ADOStoreProc ）

procedure TForm1.btn1Click(Sender: TObject);
Var
	BudgetAmt:Single;
begin
	with ADOSP1 do
	begin
		ProcedureName :='GetBudgetAmt';
		Parameters.Refresh;				//必须有本语句，刷新参数
		Parameters.ParamByName('@DeptID').Value:=EdtDept.Text;
		Parameters.ParamByName('@FeeDate').Value:=EdtFeeDate.Text;
		Parameters.ParamByName('@FeeCode').Value:=EdtFeeCode.Text;
		Parameters.ParamByName('@FeeType').Value:=EdtFeeType.Text;
		Parameters.ParamByName('@BAType').Value:=EdtBAType.Text;
		Parameters.ParamByName('@FeeAmt').Value:=0.00;
		ExecProc;
		BudgetAmt:=Parameters.ParamByName('@FeeAmt').Value;
		edtFeeAmt.Text:=Format('%.2f',[BudgetAmt]);
	end;
end;