A simple example of Delphi using the winio.sys driver level to read keyboard content