Zitat:
AResultList.Add(Edit.Text);
Hier liegt dein Fehler. Mit dieser Zeile wird gesamte Text samt Zeilenumbrüche in eine einzelne Zeile von AResultList eingetragen. Ersetze die Codezeile einfach durch
AResultList.Assign(Edit.Lines);
und die Anzahl der Zeilen stimmt überein.
Zitat von
AnyKey:
var i : Integer;
var Linemax : Integer;
var AResultList : TStringList;
Ein "var" reicht aus. Die anderen sind hier nicht notwendig.