[Demonuka]

Для процедуры ConnectMsg я указал

Код:

procedure ConnectMsg(var Message: TMessage); message WM_USER;

И в константах указано

Код:

Msg = WM_USER;