Trabajar con archivo text
 

Señores(as), tengo un archivo text generado ena determinada condicion. Este archivo viene muchas cosas que no me sirve, entonces necesito hacer algunos comandos para que el quede como yo gustaria, asi. O que me interesa es:
Toda las informaciones que viene apos CCF:, COO: y CONSUMIDOR:
Estas palavras no puedo cargar, solo los valores que viene luego apos las palavras. Este archivo es generado mesualmente, que puede tener tamaños diferentes, pero estas palavras siempre viene en sus posiciones, como abajo un ejemplo de tres faturas que nosotros emitimos aca:

Hay algo que no entiendo. El texto que pones de ejemplo, ¿es de un sólo archivo o son tres? En el ejemplo que te pongo, presupongo que cada archivo tiene una sola factura:

Código Delphi [-]
procedure TForm1.LeerArchivo(Archivo: String);
var
  Lineas: TStringList;
  Linea: String;
  Token: String;
  I, N: Integer;

begin
  Lineas := TStringList.Create;

  try
    Lineas.LoadFromFile(Archivo);

    for I := 0 to Pred(Lineas.Count) do
    begin
      Linea := Lineas[i];

      N := Pos('CCF:', Linea);
      if N > 0 then
      begin
        Token := '';
        Inc(N, 4);

        while (N <= Length(Linea)) and (Linea[N] <> ' ') do
        begin
          Token := Token + Linea[N];
          Inc(N);
        end;

        txtCCF.Text := Token;
      end;

      N := Pos('COO:', Linea);
      if N > 0 then
      begin
        Token := '';
        Inc(N, 4);

        while (N <= Length(Linea)) and (Linea[N] <> ' ') do
        begin
          Token := Token + Linea[N];
          Inc(N);
        end;

        txtCOO.Text := Token;
      end;

      N := Pos('CONSUMIDOR: ', Linea);
      if N > 0 then
      begin
        Token := '';
        Inc(N, 12);

        while (N <= Length(Linea)) and (Linea[N] <> ' ') do
        begin
          Token := Token + Linea[N];
          Inc(N);
        end;

        txtConsumidor.Text := Token;
      end;
  end;
  finally
    Lineas.Free;
  end;
end;

Aquí, txtCCF, txtCOO y txtConsumidor son tres componentes TEdit.

Si un sólo archivo contiene varias facturas, habrá que hacer algunas modificaciones.

// Saludos

Hola, roman, estu tu codigo solo viene un solo registro. Voy a intentar a hacerlo diferente, tenendo el como base.