Delphi中如何调用存储过程？？步骤？？？？

Question

当场散分。急

Answer 1

var
   TempParameter:TParameter;
begin
   with AdoStoredProc do
   begin
      if Active then
         Close;
      ProcedureName:='Proc_Delete_XXXfo_BE';
      Try
         Parameters.Clear;
         TempParameter:=Parameters.AddParameter ;
         TempParameter.Name:='@lXXXId';
         TempParameter.Direction:=PdInput;
         TempParameter.Value:=AlXXXId;
         ExecProc;
         Result:=True;
         Close;
      Except
         Result:=False;
         Close;
      end;
   end;

Answer 2

with adoquery1 do 
begin
  close;
  sql.clear;
  sql.add('exec proc_name');///////////proc_name为存储过程的名字
  Open;
end;