[roman]

He aquí un bonito uso- absolutamente inútil por otro lado -de la tecla ScrollLock:

Código Delphi [-]
if GetKeyState(VK_SCROLL) and 1 = 1 then
  Memo1.ScrollBars := ssVertical
else
  Memo1.ScrollBars := ssNone;