Fórum arquivo txt grande - selecionar um bloco de texto em um memo, conforme delimitador #429912

var
  Arquivo: TextFile;
  Texto  : string;

begin
  try
    // Abre o arquivo e associa o mesmo a variável
    AssignFile(Arquivo, 'Arquivo123.txt');
    Reset(Arquivo);

    // Le cada linha do arquivo, individualmente
    while not Eof(Arquivo) do
    begin
      ReadLn(Arquivo, Texto);
	  if Texto = 'MEU_DELIMITADOR' then
	  begin
        // Faça alguma coisa
	  end;
    end;

  finally
    CloseFile(myFile);
  end;	
end;