procedure TForm1.Button1Click(Sender: TObject);
 begin
  {Chequeamos si la tecla shift está pulsada}
  {Check if Shift key is down}
   if HiWord(GetKeyState(VK_SHIFT)) <> 0 then
     ShowMessage('Shift Pulsado/Shift pressed');
 end;