【delphi】 TComboBox 动态生成下拉，并展开后鼠标丢失问题

最近用delphi做个项目，对delphi初出茅庐，还是业务不是很复杂，到后期优化的时候碰到一些小问题，再此与大家分享。
问题：TComboBox 动态生成下拉，并展开后鼠标丢失问题
动态生产下拉就不多说了，网上有很多例子，但展开鼠标丢失的问题却折腾了许久，网上资料也很少（或许别人觉得这种小问题没必要记下来），但对于不知道的人可以节省很多时间，不废话了上码：

代码很简单

if not ComboBox1.DroppedDown then
  begin

    //展开下拉，还可以用SendMessage(ComboBox1.Handle,CB_SHOWDROPDOWN,1,0)来实现
    ComboBox1.DroppedDown := true;   
    SendMessage(ComboBox1.Handle, WM_SETCURSOR, 0, 0);//将鼠标显示出来
end;