[calogero]

  //Esto lo hice en el evento OnMessage del TApplicatioEvent
  //No tengo el compilador a la mano asi que este codigo no lo extraje direc-
  //tamente del editor pero asi es como lo hice y me funcionó,
  //estoy en un ciber escribiendo como lo recuerdo.
  ...
  var
Shif:SmallInt;
  begin
//Si el resultado que contiene Shift no es cero significa que está
//Presionada
Shif:=HiWord(GetKeyState(VK_SHIFT));
    if (Shit <> 0) and (Msg.Message = WM_KEYDOWN) and
                   (Msg.lParam = 9) then begin // Tabulador
Showmessage('Presionaste Shift-Tab');
//Anulamos lo que presionamos para que no lo cache otro control
Msg.Message:=0;
    end;
  end;