جابجائی نوار Scroll

گاهی نیاز داریم که نوار اسکرول را در برنامه جابجا کنیم تا بتوانیم یک متن بزرگ را نمایش دهیم. اینکار با کمک موس بسادگی انجامپذیر است . داینجا می خواهم سورس کدی را ارائه دهم که اینکار را از داخل برنامه دلفی انجام می دهد.

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;