Evtl. so?
Feedback ob das funktioniert wäre schön.
Quelle
https://docwiki.embarcadero.com/Code...teFile_(Delphi)
if dlgOpenTxtFile_1.Execute() then
begin
try
edt_File.Text := dlgOpenTxtFile_1.FileName;
Mmo1.Lines[0] := TFile.ReadAllText(edt_File.Text); // uses System.IOUtils
except
{ Catch the possible exceptions }
MessageDlg('Incorrect path', mtError, [mbOK], 0);
Exit;
end;
end;