ayuda con string

[marcoszorrilla]

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;

No tengo Delphi a mano ahora mismo, pero esta es la idea.

Un Saludo.