1:
2:
3:
4:
5:

  memo1.SetFocus;
  memo1.CaretPos := Point(0,Memo1.Lines.Count-1); // springt vor erstes Zeichen der letzten Zeile
  // ODER
  memo1.CaretPos := Point(length(Memo1.Lines[Memo1.Lines.Count-1]),Memo1.Lines.Count-1); // springt hinter letztes Zeichen der letzten Zeile
  SendMessage(memo1.Handle, EM_SCROLLCARET, 0, Memo1.Lines.Count-1);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

procedure TForm1.Button1Click(Sender: TObject);
var
   itemp: Integer;
begin
   with RichEdit1 do
   begin
     // Move to the last line:
     // Zur letzten Zeile scrollen:
     SelStart := Length(Text);
     Perform(EM_SCROLLCARET, 0, 0);

     // or: Perform(WM_VSCROLL, SB_BOTTOM,0);

     // Move to the first line:
     // Zur ersten Zeile Scrollen:
     SelStart := Perform(EM_LINEINDEX, 0, 0);
     Perform(EM_SCROLLCARET, 0, 0);

     // Move to Line 5, Character 3:
     // Cursor auf Linie 5, Postion 3 setzen:
     SelStart := Perform(EM_LINEINDEX, 5, 0) + 3;
     Perform(EM_SCROLLCARET, 0, 0);

     // Scroll down 1 Line
     // Eine linie nach unten scrollen
     with RichEdit1 do
     begin
       itemp := SendMessage(Handle, EM_LINEFROMCHAR, SelStart, 0);
       SelStart := Perform(EM_LINEINDEX, itemp + 1, 0);
       Perform(EM_SCROLLCARET, 0, 0);
     end;

     // Set the focus on the RichEdit:
     // Den Fokus aufs RichEdit setzten:
     SetFocus;
   end;
end;					

1:
2:
3:
4:
5:

procedure TFormMain.Button_AnsEndeClick(Sender: TObject);
begin
  Memo_Test.SelStart := Length(Memo_Test.Text);
  Memo_Test.SetFocus;
end;