memo i jego własny scroll bar

Jak wygenerować (obsłużyć)  zdarzenie na przewijanie textu w memo za pomocą jego scrollbar=u??

procedure WMHScroll(var Msg: TWMHScroll); message WM_HSCROLL;
procedure WMVScroll(var Msg: TWMVScroll); message WM_VSCROLL;

dalej sqmasz