Öffnen mit...

[robinWie]

Es passiert was! Leider nich das was passieren soll. Ich erhalte die Fehlermeldung:
Die Ausnahme "Unbekannter Softwarefehler" 0x0eedfade ist in der Anwendung an der Stelle 0x7c81eb33 aufgetreten.

Ich schreibe den Editor dals MDI-Anwendung, demnach habe ich deien Code so modifizierd:

Delphi-Quellcode:

procedure TMainForm.AfterConstruction;
begin
  inherited;
  // ShowMessage(IntToStr(ParamCount));
  with TTextForm.Create(Self) do begin //MID Formular
  if ParamCount > 0 then
    if FileExists(ParamStr(1)) then
      if UpperCase(ExtractFileExt(ParamStr(1))) = '.RTF' then
        Editor.Lines.LoadFromFile(ParamStr(1));
  end;
end;