Leer archivo de texto y extraer lineas de el

[aeff]

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;