Stavy některých přeřazovacích kláves a přepínačů lze zjistit voláním DOSovské funkce Int 16h pomocí FANDovské funkce IntTSR. Stavy jsou uloženy po bitech v registru AL.

Příklad: 

var
   AL: Real;
   RightShift, LeftShift, Ctrl, Alt, NumLock, ScrollLock, 
   CapsLock: Boolean;

begin
     AL:= IntTSR(22,512,0);
     RightShift:=  AL mod 2=1;
     LeftShift:=  (AL mod 4)   div 2=1;
     Ctrl:=       (AL mod 8)   div 4=1;
     Alt:=        (AL mod 16)  div 8=1;
     ScrollLock:= (AL mod 32)  div 16=1;
     NumLock:=    (AL mod 64)  div 32=1;
     CapsLock:=   (AL mod 128) div 64=1;
{
     Message('Ctrl: ',Ctrl,' ScrollLock: ',ScrollLock,' 
     NumLock: ',NumLock);
}
end;