delphi執行存儲過程

with maindm.Qryorder do
  begin
    Close;
    sql.Clear;
    sql.Text := ' exec 存儲過程名稱 ';
    ExecSQL;
    myhs.warn1('費用同步成功！');
  end;