1:
2:
3:

...
textb1.LoadFromFile('test.txt'); // ist eine TstringList !
...					

1:
2:
3:
4:
5:
6:
7:
8:

{\rtf1\ansi\ansicpg1252\deff0\deflang1031{\fonttbl{\f0\fnil\fcharset0 Times New Roman;}}
\viewkind4\uc1\pard\f0\fs20 Seit langem interessiere ich mich f\'fcr Elektronik und Computer und Soft- und Hardware sowie Technik \par
im allgemeinen. Dursch den Betrieb meines Vaters wurde bei mir das Interesse f\'fcr einen Technischen\par
Beruf geweckt. Im Betrieb meines Vaters hatte und habe ich Gelegenheit mich mit der L\'f6sung \par
vielf\'e4ltiger technisch - elektronischer Probleme zu besch\'e4ftigen, Funktelefonen, \par
Sondersignaleinrichtungen, Wegstreckenz\'e4hler und Taxametern, Datenfunkanlagen und\par
BOS - Funkanlagen\par
}					

1:
2:
3:
4:
5:
6:
7:
8:

...
textb1.LoadFromFile('E:\DELPHI\Bewerbung\D1.rtf');// läde in TstringList
...
text1.Add('');
text1.AddStrings(textb1); //text1 = TstringList
...
textferdig.Lines.Text:=textb1.Text; // Richedit
...					

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

procedure TForm1.Button2Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
  end;
end;