Klawisz ALT + lewy przycisk myszy

Witam!
Mam jednego Buttona i dwie procedurki. Chciałbym, aby po kliknięciu na niego wywoływała się pierwsza z nich, a gdy będę trzymał wciśnięty klawisz SHIFT i wtedy kliknę Buttona, uruchomiła się ta druga procedurka. Ma ktoś jakiś pomysł?

Z góry dzięki za odpowiedzi.

Po prostu reaguj nie na OnClick tylko na OnMouseDown lub OnMouseUp i wpisz:

if (ssShift in Shift) then PierwszaProcedura else DrugaProcedura;

A to Alt i lewy przycisk myszy w temacie to po co? Jeżeli pytasz o Shift i nie mówisz który przycisk ma być :) Jeżeli chcesz sprawdzać który przycisk to użyj Button tak jak Shift :)

Jest jeszcze jeden błąd ... :)

--------------Blok reklamowy :) -----
kanał: #4programmers.net lub #4programmers
w sieci POLNet
serwer np.: warszawa.ircnet.pl

Tak, temat trochę nie w treść, ale wybaczcie, bo pisałem ten post na raty. :-)