Füge mit
StringList.Add( Edit.Text)
den Text in die Liste ein.
Gebe den Text ungefähr so aus:
Delphi-Quellcode:
var
i : Integer;
...
for i := 0 to StringList.Count -1 do
[?].Canvas.TextOut( 0, i* 20, StringList[ i]);
Must du selbstverständlich noch an deinen Code anpassen.