[Decoding]

Примерно так

Код:

 
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  fin, fout: TextFile;
  s: string;
  flag: boolean;
begin
   i := 1;
   flag := false;
   AssignFile( fin, 'c:\1.txt' ); // Тут укажи путь к реальному файлу
   Reset( fin );
   while not Eof( fin ) do
   begin
      Readln( fin, s );
      if Pos( 'abstract', AnsiLowerCase( s ) ) > 0 then
      begin
         AssignFile( fout, Format( 'c:\%.3d.txt', [i] ) );
         Rewrite( fout );
         flag := true;
      end;
      if ( Length( Trim( s ) ) = 0 ) and flag then
      begin
         CloseFile( fout );
         flag := false;
         Inc( i );
      end;
      if flag then
         Writeln( fout, s );
   end;
   if flag then
      CloseFile( fout );
   CloseFile( fin );
end;