Перехват (Hook) клавиатуры (программа Sendkeys)

Code:

// *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* //

object Form1: TForm1

Left = 200

   Top = 104

   Width = 544

   Height = 375

   Caption = 'XXX'

   Font.Charset = DEFAULT_CHARSET

   Font.Color = clWindowText

   Font.Height = -11

   Font.Name = 'MS Sans Serif'

   Font.Style = []

   PixelsPerInch = 96

   TextHeight = 13

   object Label1: TLabel

   Left = 128

     Top = 68

     Width = 32

     Height = 13

     Caption = 'Label1'

end

end