Problemas al Cachar cuando se presion Shift+Flecha Arriba/Abajo

[AGAG4]

Tengo en el evento OnkeyDown el siguiente código que tome de Trucomania para saber cuando se presionan AL MISMO TIEMPO la tecla Shif + Flecha Arriba ó Abajo pero no me funciona:

Código Delphi [-]
  if (HiWord(GetKeyState(VK_SHIFT)) <> 0 ) and ((key = 38) or (key = 40)) then
 ....
// y también....
  if (Key = VK_SHIFT) and (ssShift in Shift) then
   ....

Alguna Sugerencia....

[[egostar]]

Usa esto, haber que te parece.

Código Delphi [-]
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; 
Shift: TShiftState);
begin
if (ssShift in Shift) and (Key = 38) then
ShowMessage('Shift + Flecha Arriba Presionado');
if (ssShift in Shift) and (Key = 40) then
ShowMessage('Shift + Flecha Abajo Presionado');
end;

Saludos.

[AGAG4]

Que raro, no tengo que usar los ELSE para que me funcione
Tome el ejemplo que me pasastes pero le agregue el ELSE entre los If..then y no me funciono pero le quite los ELSE y Funciono que raro

Gracias....!!!!

[[egostar]]

Si que está raro porque acabo de poner el ELSE en el código y si funciona,

Código Delphi [-]
 
  if (ssShift in Shift) and (Key = 38) then
     ShowMessage('Shift + Flecha Arriba Presionado')
  else
  if (ssShift in Shift) and (Key = 40) then
     ShowMessage('Shift + Flecha Abajo Presionado');

no use IF anidados porque no lo crei necesario, sin embargo lo importante es que te haya servido.

Saludos