Enviar comandos de rolagem vertical para um TMemo no Delphi

Inclua na seção uses: Windows

Para o programa rolar automaticamente o conteúdo de um TMemo,
simulando o deslizamento da barra de rolagem vertical.
Utilizando mensagens do Windows isto é fácil. Vejamos
algums exemplos:



SendMessage(Memo1.Handle, WM_VSCROLL, SBPAGEDOWN, 0);

Onde:
  Memo1.Handle = manipulador da janela do Memo1.
    WM_VSCROLL = Mensagem do Windows - rolagem vertical.
   SB_PAGEDOWN = Comanndo de rolagem - página para baixo.

Outros exemplos:

{ Página para cima }
SendMessage(Memo1.Handle, WM_VSCROLL, SBPAGEUP, 0);

{ Linha para baixo }
SendMessage(Memo1.Handle, WM_VSCROLL, SBLINEDOWN, 0);

{ Linha para cima }
SendMessage(Memo1.Handle, WM_VSCROLL, SBLINEUP, 0);