Witam, znalazłem sposób zwiększania komponentów

http://delphi.about.com/library/weekly/aa102505a.htm

Mam pytanie, jak zaprogramować zdarzenie, po zakończeniu zwiększania, puszczenie myszy, żeby komponent nie mógł mieć większej długości niż taka, jaką ustaliłem.
Próbuję w MosuseMove, DOwn, UP, MouseLeave ale nie działa.
Z góry dzieki za pomoc.