Fehler: Listenindex überschreitet das Maximum (1)

[jbg]

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.