Events på form ved focus/kill focus

Jeg har lavet mit eget design på en form, kun som alm. kode indtil vidre. Jeg vil gerne kunne vise at formen har focus/ikke har focus.
Jeg prøvede med wm_setfocus og wm_killfocus. Det virker bare kun så længe at der ikke er en komponent på formen der tager focus, fx en knap, så vil den åbenbart få messagene. Prøv selv at fjerne knappen så virker det.
Hvordan fanger man så de to (måske nogle andre) messages?

Her er koden (ramme/flyt/resize virker fint).

formstyle sættes til fsNone

  TForm1 = class(TForm)
    Bevel1: TBevel; //adskiller caption område og "client" - er top streg top=15 height=9, left=0, width=hele form, men det er jo ikke vigtigt

    Label1: TLabel; //"caption" i caption område
    Image1: TImage; //"icon" i caption område
    Button1: TButton; //test og den giver problemmer!!
  private
    procedure WMNCHitTest( var Msg : TWMNCHitTest ); message wm_NCHitTest;
    procedure WMsetfocus(var msg: TWMSetFocus); message wm_setfocus;
    procedure WMkillFocus(var msg: TWMkillFocus); message wm_killfocus;
  public
    procedure CreateParams(var Params: TCreateParams); override;
  end;

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.Style := (Params.Style or WS_THICKFRAME);
end;

procedure Tform1.WMsetfocus(var msg: TWMSetFocus);
begin
    label1.Font.Color:=clBlack;
end;

procedure Tform1.WMkillfocus(var msg: TWMkillFocus);
begin
    label1.Font.Color:=clGray;
end;

procedure TForm1.WMNCHitTest(var Msg: TWMNCHitTest);
var
    xr,yr:  integer;
    wr,hr:  integer;
begin
    xr:=msg.XPos-left;
    yr:=msg.YPos-top;
    wr:=clientWidth+3;
    hr:=clientHeight+3;

    if xr<=2 then begin
        if yr<=2 then
            msg.Result:=HTTOPLEFT
        else
            if yr>=hr then
                msg.Result:=HTBOTTOMLEFT
            else
                msg.Result:=HTLEFT;
        exit;
    end;

    if yr<=2 then begin
        if xr>=wr then
            msg.Result:=HTTOPRIGHT
        else
            msg.Result:=HTTOP;
        exit;
    end;

    if xr>=wr then begin
        if yr>=hr then
            msg.Result:=HTBOTTOMRIGHT
        else
            msg.Result:=HTRIGHT;
        exit;
    end;

    if yr>=hr then begin
        msg.Result:=HTBOTTOM;
        exit;
    end;

    if yr <= 23 then begin //23 passer med bevelen.
        Msg.Result := HTCAPTION;
        exit;
    end;

    msg.Result:=HTCLIENT; //bare formen
end;