1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm1.WndProc(var Message: TMessage);
begin
  case Message.Msg of
    WM_NCACTIVATE,
    WM_NCCALCSIZE,
    WM_NCLBUTTONDOWN,
    WM_NCLBUTTONUP,
    WM_NCLBUTTONDBLCLK,
    WM_NCRBUTTONDOWN,
    WM_NCRBUTTONUP,
    WM_NCRBUTTONDBLCLK:begin
      PaintAndMsg;
      Memo1.Lines.Add(IntToStr(Message.Msg)+ ' PaintAndMsg');
    end
    else inherited;
  end;
end;