Du musst das
.Text wegnehmen, weil jede Zeile erstmal ein
String ist.
Dann solltest du aufpassen, das max nicht über (Memo.Lines.Count div 3) -1 geht, sonst bekommst du Probleme.
So sollte es denn gehen:
Delphi-Quellcode:
for i := 0 to (Memo1.Lines.Count div 3)-1 do
showmessage(Memo.Lines[3*i]);