Который при hwnd=0 будет делать что-то типа такого
if (Msg.hwnd=0)and(Msg.message=CM_EXECPROC) then
TObjectMethod(TMethod(wParam,lParam))
else
...
А мультик превратить в элемент или IC со значительно более простыми действиями.
Отложенное событие может не только для самоудаления сгодиться.