1:

MyRichedit1.Lines.LoadFromFile('C:\MeinText.txt');					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Fenster12Click(Sender: TObject);
begin
 if Richedit1.visible=true then
 begin
  opendialog1.Title:='Öffne Datei für Fenster 1';     //öffnen einer Datei Fenster 1
  if opendialog1.execute then
  Richedit1.lines.LoadFromFile(opendialog1.filename);
 end
 else
 showmessage('Fenster muß neu erstellt werden');
end;					

1:
2:
3:
4:
5:
6:

  if OpenDialog1.Execute then begin
    with RichEdit1 do begin
      PlainText := False;
      Lines.LoadFromFile(OpenDialog1.FileName);
    end;
  end;					

1:

Entfernt