[Neftali [Germán.Estévez]]

Cierto, en éste caso tal vez me he complicado la vida, prueba con ésto:

Código Delphi [-]
   if Odd(GetKeyState( VK_CAPITAL )) then begin
     MessageDlg('Activa', mtInformation, [mbOK], 0);
   end
   else begin
     MessageDlg('Desacivada', mtInformation, [mbOK], 0);
   end;