Leer archivo de texto y extraer lineas de el
 

quiero abrir un archivo de word , 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 .

Codigo que tengo de otro ejemplo que encontre x ahi

Código Delphi [-]
unit Prueba;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    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.Button2Click(Sender: TObject);
begin
exit
end;

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.xrc’;
//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;


end.

Errores que tengo

espero que te sirva
 

hola colega, si lo que deseas es abrir un documento word, copiar sus dos primeras lineas y pegarla en otro nuevo documento, aqui va algo:

Código Delphi [-]
 
  uses ComObj;
 
procedure TForm1.Button1Click(Sender: TObject);
const
  wdLine   = 5;
  wdScreen = 7;
  wdExtend = 1;
var
  vWordApp: Variant;
begin
  //
  vWordApp := CreateOleObject('Word.Application');
  vWordApp.Visible := true;
  vWordApp.Documents.Open('C:\Documents and Settings\Alberto\Mis documentos\CABOCLA.doc');
  vWordApp.Selection.HomeKey(wdLine);                         {Principio de la linea, X =0}
  vWordApp.Selection.MoveUp(wdScreen, 1);                     {Principio de la pantalla, Y = 0}
  vWordApp.Selection.MoveDown(wdLine, 2, wdExtend);           {Bajamos y seleccionamos las dos lineas que deseas, *el 2do paramtero = 2*}
  vWordApp.Selection.Copy;                                    {Copiamos la seleccion}
  vWordApp.Documents.Add;                                     {Nuevo documento}
  vWordApp.Selection.Paste;                                   {Pegamos lo que habiamos copiado}
 
end;