在Delphi中，可以使用TStreamReader類來讀取文本文件。下面是一個示例代碼，演示了如何讀取文本文件的內容：

var
  FileStream: TFileStream;
  StreamReader: TStreamReader;
  Line: string;
begin
  // 創建TFileStream對象來打開文本文件
  FileStream := TFileStream.Create('C:\path\to\file.txt', fmOpenRead);
  
  try
    // 創建TStreamReader對象并將TFileStream對象傳遞給它
    StreamReader := TStreamReader.Create(FileStream);
    
    try
      // 逐行讀取文本文件的內容
      while not StreamReader.EndOfStream do
      begin
        Line := StreamReader.ReadLine;
        // 處理每一行的內容
        ShowMessage(Line);
      end;
    finally
      // 釋放TStreamReader對象
      StreamReader.Free;
    end;
  finally
    // 關閉并釋放TFileStream對象
    FileStream.Free;
  end;
end;

上述代碼中，我們首先創建一個TFileStream對象來打開文本文件。然后，我們創建一個TStreamReader對象并將TFileStream對象傳遞給它，以便讀取文件的內容。

接下來，我們使用while循環和StreamReader的EndOfStream屬性來檢查是否到達了文件的末尾。在每次循環中，我們調用StreamReader的ReadLine方法來讀取一行文本，并將其存儲在Line變量中。然后，我們可以對每一行的內容進行處理。

最后，記得釋放TStreamReader和TFileStream對象，以釋放資源。