[sanxpue]

Esto te va a fallar cuando el valor pase a 1000

434/04

Var
  nStart:Integer;
  cFin:String
begin
  nStart:=StrToInt(Copy(MiVariable,1,3));
  cFin:=Copy(MiVariable,4,3);  
  nStart:=nStar +1;
  MiVariable:=IntToStr(nStart)+cFin
End;

Entonces mas general seria

Var
  nStart : Integer;
  cFin : String
begin
  nStart := StrToInt(Copy(MiVariable,1,Pos('/',MiVariable)-1));
  cFin:=Copy(MiVariable,Pos('/',MiVariable),100);  //solo para asegurar que 
  //obtenemos todo el final de la cadena
  Inc(nStart);
  MiVariable:=IntToStr(nStart)+cFin
End;