Memo scrollen

[Nicodius]

Vielen Dank für den Link, leider hat es bei mir wieder nicht funktioniert.
Ich habe folgenden Code(in meinem Richedit(Log_Output) befinden sich nur mehr zeilen mit error codes, in einer Listbox(Error_Codes) die zugehörigen Errorcodes, also exakt gleich viele items):

Delphi-Quellcode:

    
with Log_Output do
  begin
    SelStart := Perform(EM_LINEINDEX, Error_Codes.ItemIndex, 0);
    Perform(EM_SCROLLCARET, 0, 0);
    Invalidate;
  end;

Leider macht es aber genau gar nichts.