1.存儲過程動態調用
    sp_Exec.Parameters.Clear;
    sp_Exec.ProcedureName := 'sp_TransTo';
    sp_Exec.Parameters.CreateParameter('@mailId', ftString, pdInput, 50, MailId);
    sp_Exec.Parameters.CreateParameter('@Result', ftInteger, pdOutput, 0, rowID);
    sp_Exec.ExecProc;
2.在按鈕的左下角顯示彈出式菜單
var
  xy: TPoint;
begin
  xy := btnFlow.ClientOrigin;
  xy.Y := xy.Y + btnFlow.Height;
  Windows.ClientToScreen(HWND_DESKTOP, xy);
  mmMenu.Popup(xy.X, xy.Y);
3.Windows消息