[MartinS]

Hola: A ver si entendí la pregunta

Aqui va el algoritmo

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
Var Original,AConvertir, Nuevo: String;
    ValorAnterior, NuevoValor: Int64;
    i : Integer;
begin
  // Valor original en formato string
  Original := Edit1.Text;
  // Tomo solo la parte que interesa
  AConvertir := Copy(Original,12,08);
  // y la borro
  Delete(Original,12,08);
  // Convierto el resultante a entero
  ValorAnterior := StrToInt(AConvertir);
  // le sumo uno
  Inc(ValorAnterior);
  // y lo asigno a una variable
  NuevoValor := ValorAnterior;
  //  completo una variable string con ceros antes del valor resultante;
  for i := 1 to (8-Length(IntToStr(NuevoValor))) do
    Insert('0',Nuevo,I);
  // y le agrego el numero final como string
  Nuevo := Nuevo+IntToStr(NuevoValor);
  // Despues le agrego eso nuevo a la cadena que le habia quidato el final
  Edit2.Text := Original+Nuevo;
end;

Para probarlo inicia una nueva aplicacion y agrega dos TEdit y un boton donde pegas este codigo. (lo probe con el texto de tu mensaje y pareciera que anda). Saludos