[DeepPurple]

мне необходимо разобраться что для чего и как действует( а главное что значит)
Код:

Код:

const
  WM_CLICKBN=WM_USER+1;
.....................
 public
    procedure ButtonClick(Sender: TObject);
    procedure WMCLICKBN(var M: TMessage); message WM_CLICKBN;
......................
procedure TForm1.ButtonClick(Sender: TObject);
begin
  PostMessage(Form1.Handle,WM_CLICKBN,Integer(Sender),0);
end;
......................
procedure TForm1.WMCLICKBN(var M: TMessage);
var
  bn: TButton;
  i: Integer;
begin
  bn := TButton(M.WParam);
  if not (bn is TButton) then Exit;
  for i := 0 to High(BA)-1 do
  begin
    if BA[i]=bn then
    begin
      Move(BA[i+1],BA[i],SizeOf(TButton)*(High(BA)-i));
      Break;
    end;
  end;
  SetLength(BA,High(BA));
  FreeAndNil(bn);
end;

я хочу разобраться что это за метод, класс или хз что
PostMessage(Form1.Handle,WM_CLICKBN ,Integer(Sender),0);
и как он работает(насколько я знаю это перехватчик сообщений но хотелось бы поподробней) хотелось бы узнать что значит каждый параметр в данной строчке,
зачем( и что делает)
procedure WMCLICKBN(var M: TMessage); message WM_CLICKBN;
и зачем заводится константа( да еще и равная какой то другой константе которая не обьявлена).
PS да, я знаю, что хелп всем поможет, но к сожалению не силен в английском.