[[Al González]]

Hola Ángel.

Suponiendo que el contenido del archivo sea uniforme, es decir, que a partir de la línea 0 y cada tres líneas el texto a encontrar lleve siempre antepuesta la subcadena de 13 caracteres 'descripcion: ', el siguiente código te servirá:

Código Delphi [-]
Var
  I :Integer;
begin
  { L1 es un TStringList con el contenido del archivo y L2 un TStringList
    vacío donde se guardará el resultado }

  I := 0;

  While I < L1.Count Do
  Begin
    L2.Add (Copy (L1 [i], 14, MaxInt));
    Inc (I, 3);
  End;
end;

En caso de que el contenido del archivo sea más variado, convendría que nos dieras otros ejemplos del mismo para idear una mejor forma de realizar el análisis sintáctico ("parseo") que necesitas.

Saludos.

Al González.