delphi执行存储过程

with maindm.Qryorder do
  begin
    Close;
    sql.Clear;
    sql.Text := ' exec 存储过程名称 ';
    ExecSQL;
    myhs.warn1('费用同步成功!');
  end;sql