Bitte schickt doch AssignFile, Reset, ReadLn, usw. in Rente!
Zum Laden einer Datei reicht ein 2-Zeiler:
Delphi-Quellcode:
procedure TForm9.OPen1Click(Sender: TObject); // liest Datei in Memofeld ein
begin
if OpenDialog1.Execute then
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;