Delphi: procedure SetKeystrokeDebugging(Debugging: Boolean); var Dialog: IOTAKeyboardDiagnostics begin if Supports(BorlandIDEServices, IOTAKeyboardDiagnostics, Dialog) then Dialog.KeyTracing := Debugging; end; C++: void SetKeystrokeDebugging(bool Deb…