procedureTForm1.Button1Click(Sender: TObject); //寫檔案

var wText:TextFile;
begin
  AssignFile(wText, 'ip.txt');
  Rewrite(wText);//建立檔案，或者使用ReSet開啟檔案
  Writeln(wText, richedit1.text);
  CloseFile(wText);
end;

procedureTForm1.Button2Click(Sender: TObject);  //讀檔案
var rText: TextFile;
   tmp:String;
begin
  richedit2.Clear;//清除原來的內容
  AssignFile(rText, 'ip.txt');
  reset(rText);
  while not EOF(rText) do
  begin
   readln(rText,tmp);
   richedit2.Lines.Add(tmp);
  end;
  closefile(rText);
end; 

相關知識內容:

   在對文字檔案進行任何處理之前，首先要開啟此文字檔案。宣告變數：通過此變數可以來引用一個文字檔案。
   開啟一個檔案需要兩步：首先是AssignFile(),它可以將檔案變數與一個檔案關聯起來。例如：這時，你可以進行第二步：開啟檔案。有三種方式開啟檔案：使用R ew r i t e ( )過程建立並開啟檔案；對於一個已存在的檔案，此操作將使檔案被覆蓋；使用R e s e t ()過程只讀地開啟一個檔案；使用Append() 過程向已存在的檔案追加文字。
   注意Reset()將以可讀寫方式開啟型別檔案和無型別檔案。可以使用CloseFile()來關閉一個已開啟的檔案。
    
 本文轉載於：

下面是各種呼叫的函式:
    
   檔案的開啟與關閉：
    AssignFile：把一個外部檔名和一個檔案變數相關聯
    Reset：開啟一個存在的檔案
    Rewrite：建立並開啟一個新檔案（或覆蓋原有檔案）
    Append ：以新增方式開啟一個檔案（只適用於文字檔案）
    CloseFile：關閉一個開啟的檔案
    FileOpen：開啟一個特定的檔案並返回檔案控制代碼
    FileCreate：建立一個給定檔名的檔案並返回檔案控制代碼
    FileClose：關閉一個特定控制代碼的檔案
    後邊三個檔案主要供系統內部使用，在檔案複製的程式設計中也往往會用到。它們操作的物件是檔案控制代碼而不是檔案變數。
    
    檔案定位：
    Seek：把檔案當前位置移到指定部分
    FilePos：返回檔案的當前位置
    Eoln：返回行結束標誌
    EOF：返回檔案結束標誌
    FileSeek：改變當前檔案指標的位置