Memo e ListBox - fazendo rolar via codigo

Fazendo uma ListBox ou um TMemo rolar sozinho

    //===================== ListBox

    Coloca-se um componente Timer

    no evento OnTimer coloca-se

    with ListBox1 do

    begin

      Perform(Lb_SetTopIndex, ItemAtu, 0);

      Inc(ItemAtu);  

      if ItemAtu> Items.Count then

        Timer1.Enabled:= False;

    end;

  // ItemAtu: Integer é uma variável que guarda o número de linha que está na posição superior e é definida na parte 

  private da Form.

    //=======================TMemo

    O Procedimento é o mesmo, a mensagem que deve ser enviada é Em_LinesCroll. Neste caso não é preciso armazenar o 

    índice da linha superior, pois passa-se apenas o número de linhas que se quer rolar, em LParam:

    Ex: Memo1.Perform(Em_LinesCroll, 0, 1);