Pour défiler en même temps que tu ajoutes du texte le RichEdit doit avoir le focus.

A la rigueur tu peux sauvegarder l'emplacement du focus et le remettre après :

procedure Click;
var
...