Witam, napisałem według poradnika z forum hooka na klawiature :
unit Unit2;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, unit1;
type
TForm2 = class(TForm)
procedure...