MEMO ciclo de Delphi arriba Desplazar hacia abajo

// bucle enrollando 
  IF Memo1.Perform (EM_SCROLL, SB_LINEDOWN, 0 ) = 0  entonces 
  el comienzan 
  Memo1.Perform (a WM_VSCROLL, SB_TOP, 0 );
   Terminar 
  el otro 
  la comienzan 
  el SendMessage (Memo1.Handle, un WM_VSCROLL, SB_LINEDOWN, 0 );
   End ; 

// ejecutar en el extremo SendMessage (Memo1.Handle, EM_SCROLL, SB_BOTTOM, 0); 
// paso a paso hacia abajo SendMessage (Memo1.Handle, WM_VSCROLL, SB_LINEDOWN, 0); 
// descienden SendMessage (Memo1.Handle, EM_SCROLL, SB_PAGEDOWN, 0); 
IF (EM_SCROLL, SB_LINEDOWN, Memo1.Perform 0 ) = 0  entonces // bajo rollo
button2.Enable: = False;
si Memo1.Perform (EM_SCROLL, SB_LINEUP, 0 ) = 0  entonces // 上滚 
button1.Enable: = False;