procedure TForm1.Button1Click(Sender: TObject);
begin
RichEdit1.Lines.LoadFromFile('c:\bootbak.txt');
end;
这样按下Button控件就可以直接txt内容加载在Richedit的文档上。。
要是我想直接把bootbak.txt 的内容直接写在程序里面按下button也能实现在Richedit上要怎么实现

比如 bootbak.txt 里面有1000多个字

没有必要，在程序里就写死了

你用个opendialog组件吧，这样更方便。
procedure TForm1.Button1Click(Sender: TObject);
begin
opendialog1.execute;
RichEdit1.Lines.LoadFromFile('c:\bootbak.txt');
end;