Mit "try" an EXE geschriebene Daten auslesen

[Sprint]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  Stream: TMemoryStream;
begin

  Stream := TMemoryStream.Create;
  try
    try
      LoadFromFile(Application.ExeName, Stream);
      Stream.Position := 0;
      Memo1.Lines.LoadFromStream(Stream);
    except
      // Hier wird der Fehler abgefangen. Und du kannst diesen nach
      // deinen eigenen Wünschen anzeigen lassen
      on E: Exception do
        Application.MessageBox(PChar(E.Message), nil, MB_OK or MB_ICONEXCLAMATION);
    end;
  finally
    Stream.Free;
  end;

end;