帮助看这么一段代码(让窗口无焦点)怎么不行

uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  ExtCtrls, Keyboard; type 
  TForm1 = class(TForm) 
    Keyboard1: TKeyboard; 
    procedure Keyboard1Key(Sender: TObject; Char: Char); 
  private 
    { Private declarations } 
   procedure WMMouseActivate(var Msg: TWMMouseActivate); message WM_MOUSEACTIVATE; 
 procedure WmNCHitTest(var Msg :TWMNCHitTest); message WM_NCHITTEST;   public 
    { Public declarations } 
  end; var 
  Form1: TForm1; implementation {$R *.DFM} procedure TForm1.WMMouseActivate(var Msg: TWMMouseActivate); 
 begin 
  Msg.Result := MA_NOACTIVATE; 
end; procedure TForm1.WmNCHitTest(var Msg: TWMNCHitTest); 
begin 
  DefaultHandler(Msg); 
  if Msg.Result = HTCAPTION then 
    Msg.Result := HTNOWHERE; 
end; procedure TForm1.Keyboard1Key(Sender: TObject; Char: Char); 
begin 
showmessage(char); 
end; end. 
说是可以让窗口无焦点,但我运行发现窗口show时仍有焦点,当其他窗口获取焦点后在点击
此窗口确实没有焦点,但最大化后又有了焦点.怎么回事?真的没有永远没有输入焦点的窗口吗？还有keyboard单元找不到  
要求很简单，就是当鼠标单击该窗口时不让原来的拥有焦点的窗口失去焦点