Delphi - Leer archivo y extraer lineas de el

quiero abrir un archivo de word como el ejemplo k habai antes , pero a ese archivo extraerle las 2 primeras lineas que es donde esta el titulo esas lineas guardarlas en otro archivo .

como se podria hacer para hacer eso pero con varios archivos a la vez .

encontre en otro post como abrir un archivo de word , pero me da un error con la declaracion de Obj en el uses . Codigo como coloque el ejemplo
[Fatal Error] prueba.pas(7): File not found: 'Obj.dcu'

unit prueba;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls,Obj;

type
TForm1 = class(TForm)
Panel1: TPanel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
MiWord: variant; //Para instanciar el Word
documento:string; //Para “construir” el path del documento
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
try
//Creamos una instancia de MS-Word.
MiWord := CreateOleObject('Word.Application');
MiWord.Visible := true;
//Construimos el path del documento a partir de la carpeta de la aplicación.
documento:=ExtractFilePath(Application.ExeName)+
'documentos\nombre_documento.doc’;
//Si el documento existe, lo abrimos, si no creamos uno.
If FileExists(documento) then
MiWord.Documents.Open (documento)
else
MiWord.Documents.Add;
//Modo en que aparece la aplicación (maximizada, minimizada o normal):
MiWord.WindowState:=1;
MiWord.Caption:='Mi documento';
except on EOleError do
end;