split butonu otomatik olarak açma

[arsl01]

merhaba değerli arkadaşlarım,hocalarım,abilerim bi konuda yardım isticektim

delphide slipt butonu üstüne geldiğimde otomatik oalrak açmasını istiyorum yardımlarınızı bekliyorum 

https://h.eksiup.com/1EDZAb.png


resimde tıklayınca açkıyor ama onmausemove olayına ne yazacağımı bulamadım

[SimaWB]

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
  p: TPoint;
begin
  if GetCursorPos(p) then
    Button1.DropDownMenu.Popup(p.X, p.Y);
end;