extraer cadenas de texto de archivo txt

[keyboy]

Si todas las cadenas son como la que pones, quizá baste buscar la posición de la cadena "id=" y del primer "&" después de eso. Algo como

Código Delphi [-]
var
  PosId, PosAmp: Integer;

begin
  // Buscar el inicio del número (S es la cadena a examinar)
  PosId := Pos('id=', S);
  
  // Si no está, terminar
  if PosId = 0 then
    exit;

  // Saltarse los tres caracteres de "id="
  Inc(PosId, 3);

  // Buscar el ampersand desde PosId
  PosAmp = PosEx('&', S, PosId);

  // Si no está es porque el número está al final de la cadena
  if PosAmp = 0 then
    PosAmp := Length(S);

  // Extraer el número.
  S := Copy(S, PosId, PosAmp - PosId);
end;

Bye