passing messages subclass uncanny wndproc

i have reading support subclassing i have successful doing events subclass

my emanate flitting messages behind uncanny wndproc.

as an example, i have window, sub-classed groupbox control symbol child groupbox, i wish hoop symbol eventuality uncanny window procedure, subclassed groupbox procedure.

essentially, i wish an lifeless subclass procedure:

lresult distant pascal subclassfunc(hwnd hwnd,
                        uint umsg,
                wparam wparam,
                lparam lparam)
{
    relapse callwindowproc(oldproc, hwnd, umsg, wparam, lparam);
}

where oldproc is:

farproc oldproc = (farproc)setclasslong(group_box, gcl_wdproc, (dword)subclassfunc);

and where window groupbox symbol are:

hwnd window = createwindowex(
    ws_ex_windowedge, 
    appname,
    text("subclass test"),
    ws_visible |ws_overlappedwindow,
    cw_usedefault,
    cw_usedefault,
    300,
    400,
    null,
    null,
    hinstance,
    0);

hwnd group_box = createwindowex(
    0,
    text("button"),
    text("group box"),
    ws_child | ws_visible | bs_groupbox,
    8,
    8,
    275,
    350,
    window,
    null,
    hinstance,
    0);

hwnd push_button = createwindowex(
    0,
    text("button"),
    text("push button"),
    ws_child | ws_visible | bs_pushbutton | bs_vcenter,
    50,
    100,
    100,
    25,
    group_box,
    (hmenu)push_button,
    hinstance,
    0);

i hoop symbol events subclassfunc, nonetheless i wish pass behind window wndproc. seems callwindowproc isn't doing this, i competence totally wrong callwindowproc works.