Falls es bei Memo1.Lines.Add immer an das Ende des Memos scrollt, kann man das so lösen:
Delphi-Quellcode:
//eigentlichen Text anfügen
Memo1.Lines.AddStrings(Empfang);
//ans Ende scrollen
Memo1.Lines.Add(' ');
//Zeile wieder löschen
Memo1.Lines.Delete(Memo1.Lines.Count);
Dabei wird zusätzlich zum eigentlichen Text noch eine Leerzeile mit
Add angfügt, um zur untersten Zeile zu scrollen. Danach wird die Leerzeile sofort wieder gelöscht.
MfG
Binärbaum