Przewijanie RichEdit na sam koniec

Mam pytanko, jak przewinąć po klinięciu np.: na Button całą zawartość RichEdit na samiutki dół ? Przeszukałem duża część forum i nieznalazłem odpowiedzi, a jak już coś było to niedziałało :/

procedure TForm1.Button1Click(Sender: TObject);
begin
  RichEdit1.SelStart := Length(RichEdit1.Text);
  RichEdit1.Perform(EM_SCROLLCARET, 0, 0);
  RichEdit1.SetFocus;
end;

Dzięki działa, tylko bez tego SetFocus, bo jak to było to wyświetlał się błąd :D