Zitat von
quendolineDD:
Falls es wirklich in ein Edit gehen soll und die Textdatei einzeilig ist, dann kannst du es auch so machen:
Delphi-Quellcode:
[...]
Edit1.Text:= atxtline.Items[0];
[...]
end;
Du meinst
Edit1.Text := atxtline.Strings[0]
Desweiteren solltest Du alles nach dem TStringlist.Create in einen Try-Finally-Block packen und im Finally-Teil dann die erzeugte Stringliste wieder freigeben.