کنترل کردن Scroll Bar اشیا

سلام میخوام اسکرول اشیایی رو که دارای اسکرول هستن رو کنترل کنم مثلا Memo اسکرول داره ولی متدی برای کنترل اون نداره
ممنون

با سلام

کد:

---

procedure MemoScrollDown(Memo: TMemo) ;
var
  ScrollMessage:TWMVScroll;
  i:integer;
begin
  ScrollMessage.Msg:=WM_VScroll;
  for i := 0 to Memo.Lines.Count do
  begin
  ScrollMessage.ScrollCode:=sb_LineDown;
  ScrollMessage.Pos:=0;
  Memo.Dispatch(ScrollMessage) ;
  end;
end;

---