den4b Forum

var
  StartPos, EndPos, Number: Integer;
  NumberStr: String;
begin
  StartPos := WidePos('.', FileName);
  if StartPos > 0 then
  begin
    EndPos := WidePosEx(' ', FileName, StartPos + 1);
    if EndPos > 0 then
    begin
      NumberStr := WideCopy(FileName, StartPos + 1, EndPos - StartPos - 1);
      if TryStrToInt(NumberStr, Number) then
      begin
        Number := Number + 9; // Adjust the number here
        WideDelete(FileName, StartPos + 1, EndPos - StartPos - 1);
        WideInsert(IntToStr(Number), FileName, StartPos + 1);
      end;
    end;
  end;
end.