Delphi mette a disposizione due metodi per leggere e scrivere lo stato della tastiera, si tratta delle due funzioni GetKeyboardState e SetKeyboardState.
Come parametro usano una variabile di tipo TKeyboardState che, nel caso la funzione abbia successo, conterrà lo stato di ogni tasto virtuale. Questo tipo di variabile è un array contenente lo stato di ogni carattere, ponendo il valore ad uno se il tasto è attivato, a zero altrimenti.
Se ad esempio vogliamo sapere se il CapsLock è attivato basterà guardare il relativo valore all'interno dell'array nel seguente modo:

var
  ....
  keys: TKeyboardState;
  ....
begin
  ....
  GetKeyboardState( keys );
  if keys[VK_CAPITAL] = 1 then  {Caps Lock}
    showmessage('Il Caps Lock è attivato')
  else
    showmessage('Il Caps Lock è disattivato')
  ....
end;

Allo stesso modo si può vedere lo stato degli altri tasti.
Per modificare lo stato di un tasto basterà quindi assegnare alla variabile keys il valore 1 o 0 a seconda del bisogno e poi chiamare la funzione SetKeyboardState passandogli la variabile così modificata.