TMemo nach hinzufügen von TStrings nicht am Ende

[LaNtHaN]

Hallo zusammen

Ich füge in ein TMemo TStrings hinzu...
Mit Lines.Add scrollte es immer schön ans Ende des TMemo.
Wie kann ich dies bei einem TStrings lösen, damit immer die letzte Line zu unterst ist?

Delphi-Quellcode:

if t <> '' then begin
   t := Trim(t);
   Empfang.Add(t);
   Empfang.Text;
   M_Command5.Lines.AddStrings(Empfang);
end;

Weiter möchte ich TStrings durchsuchen ob zum Beispiel ein bestimmtes Wort enthalten ist. Kann mir da jemand einen Lösungsansatz geben?


Vielen Dank im Voraus!