//参考如下代码
var
  vStringList: TStringList;
begin
  vStringList := TStringList.Create;
  try
    ADOConnection1.GetProcedureNames(vStringList);
    ShowMessage(vStringList.Text);
    if vStringList.IndexOf('过程名') < 0 then
      { TODO : 不存在 };
  finally
    vStringList.Free;
  end;
end;