[marcoszorrilla]

No sé exactamente que quieres decir con que se sumen correlativamente pero supongo que quieres números consecutivos.

Código Delphi [-]
Var
nConsec:Integer;
begin
nVar:=StrToInt(Copy(TuNumero,3))+1;
end;

Bueno esta es más o menos la idea.

Un Saludo.