在Delphi中，可以使用TWordDocument組件來讀取.doc文件的內容。要讀取指定行的內容，可以使用下面的代碼：

var
WordApp: TWordApplication;
WordDoc: TWordDocument;
Paragraph: TParagraph;
LineNumber: Integer;
begin
WordApp := TWordApplication.Create(nil);
WordDoc := WordApp.Documents.Open('C:\path\to\your\document.doc', EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
// 設置讀取指定行的行號
LineNumber := 1; // 比如讀取第1行的內容
// 獲取指定行的段落
Paragraph := WordDoc.Paragraphs.Item(LineNumber);
// 獲取段落的文本內容
ShowMessage(Paragraph.Range.Text);
// 釋放資源
WordDoc.Close(EmptyParam, EmptyParam, EmptyParam);
WordApp.Quit(EmptyParam, EmptyParam, EmptyParam);
WordDoc := nil;
WordApp := nil;
end;

在上面的代碼中，我們首先創建了一個TWordApplication對象和一個TWordDocument對象，然后使用Documents.Open方法打開指定的.doc文件。接著，我們設置了要讀取的行號（在例子中是第1行），并使用Paragraphs.Item方法獲取指定行的段落對象。最后，我們使用Paragraph.Range.Text獲取段落的文本內容，并使用ShowMessage顯示在消息框中。最后，我們釋放了資源，關閉了文檔和應用程序。

請注意，要使用上述代碼，你需要在Delphi中添加對WordXP單元的引用。