Автоматически нажимающаяся кнопка

Code:

type

TAutoKind = (akTime, akMovement, akBoth);

TAutoButton2 = class(TButton)

private

   FAutoKind: TAutoKind;

   FMovements: Integer;

   FSeconds: Integer;

   // really private

   CurrMov: Integer;

   Capture: Boolean;

   MyTimer: TTimer;

   procedure EndCapture;

   // обработчики сообщений

   procedure WmMouseMove (var Msg: TWMMouse);

     message wm_MouseMove;

   procedure TimerProc (Sender: TObject);

   procedure WmLBUttonDown (var Msg: TMessage);

     message wm_LBUttonDown;

   procedure WmLButtonUp (var Msg: TMessage);

     message wm_LButtonUp;

public

   constructor Create (AOwner: TComponent); override;

published

   property AutoKind: TAutoKind

     read FAutoKind write FAutoKind default akTime;

   property Movements: Integer

     read FMovements write FMovements default 5;

   property Seconds: Integer

     read FSeconds write FSeconds default 10;

end;