Delphi:

procedure SetKeystrokeDebugging(Debugging: Boolean); var Dialog: IOTAKeyboardDiagnostics begin if Supports(BorlandIDEServices, IOTAKeyboardDiagnostics, Dialog) then Dialog.KeyTracing := Debugging; end;

C++:

void SetKeystrokeDebugging(bool Debugging){  _di_IOTAKeyboardDiagnostics Dialog; if (BorlandIDEServices->Supports(Dialog)) Dialog->KeyTracing = Debugging; }