Выдвижение Panel при наведение мыши

[nefakt]

Всем привет.
как решить такую проблему.
при наведение мыши panel выдвигается, если мышь передвинуть назад на форму она назад сворачивается. Но есть проблема на Panel есть компоненты sRadioBox и sCheckBox, навожу мышь на Panel она открывается но как наведу на sCheckBox то она сворачивается сразу, как можно сделать что бы панель не сворачивалась даже если навести мышь на CheckBox который на ней находится, она должна сворачиваться только если мышь уедет на саму форму. MouseMove, MouseLeave и MouseEnter уже пробовал вот так

procedure TForm5.sPanel2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  sPanel2.Height:=225; 
end;

procedure TForm5.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  sPanel2.Height:=205;
end;

procedure TForm5.sPanel2MouseEnter(Sender: TObject);
begin
sPanel2.Height:=225;
end;

procedure TForm5.sPanel2MouseLeave(Sender: TObject);
begin
sPanel2.Height:=205;
end;

как можно решить?
Заранее спасибо

[evg_m]

как-нибудь так.
1. узнать чье это событие sender as Tcontrol
2. проверить а не на моей ли панели это (sender as TControl).Parent =sPanel2
3. принять решение

if (sender as Tcontrol).Parent =sPanel2 then sPanel2:=225 else spanel2:=205;

[nefakt]

Спасибо за помощь