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:

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

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

    // Zur ersten Zeile Scrollen: 
    SelStart := Perform(EM_LINEINDEX, 0, 0); 
    Perform(EM_SCROLLCARET, 0, 0); 

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

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

    // Den Fokus aufs Memo setzten: 
    SetFocus; 
  end; 
end;