procedure WMNCHITTEST(var Msg: TWMNCHitTest);
     message WM_NCHITTEST;
   procedure WMNCACTIVATE(var Msg: TWMNCACTIVATE);
     message WM_NCACTIVATE;
   procedure WMSetText(var Msg: TWMSetText);
     message WM_SETTEXT;

procedure TForm1.WMNCHITTEST(var Msg: TWMNCHitTest);
begin
 Inherited;
 WITH Msg DO
   WITH ScreenToClient(Point(XPos,YPos)) DO
     IF PtInRegion(rTitleBar, X, Y) AND
      (NOT PtInRect(SB1.BoundsRect, Point(X,Y))) THEN
       Result := htCaption;
end;

procedure TForm1.WMNCActivate(var Msg: TWMncActivate);
begin
 Inherited;
 TitleBar(Msg.Active);
end;

procedure TForm1.WMSetText(var Msg: TWMSetText);
begin
 Inherited;
 TitleBar(Active);
end;

function KOLForm1Message(Sender: PControl;var Msg: tagMSG; var Rslt: Integer): Boolean;
...
function TForm1.KOLForm1Message(Sender: PControl;var Msg: tagMSG;
 var Rslt: Integer): Boolean;
 var p: TPoint;
             Msg1: TWMNChitTest;
             Msg2: TWMncActivate;

begin
 Result := FALSE;
 case Msg.message of
                      WM_NCHITTEST:begin
         getcursorpos(p);
 Inherited;
   WITH Msg1 DO                        Begin
  ScreenToClient(Sender.Handle,p); //WITH ScreenToClient(Point(XPos,YPos)) DO
     IF PtInRegion(rTitleBar, p.X, p.Y) AND (NOT PtInRect(SB1.BoundsRect, p))
      THEN
      Result := htCaption;
                                       end;
                                    end;//end wm_NCHITTEST
                     WM_NCACTIVATE:begin
                         Inherited;//не уверен что это надо добавлять???
                         TForm1.TitleBar(Msg2.Active);
                                   end;
                     WM_SETTEXT:begin
                         Inherited;//не уверен что это надо добавлять???
                         if Msg.message =WM_NCACTIVATE then
                         active:=true else  active:=false;
                                end;

 end;//end of Case
end;

...
Result.Form.OnMessage := Result.KOLForm1Message;