Te añado un pequeño ejemplo para que acabes de ver la idea:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
nEjercicio:Integer;
nNumero:Integer;
cNumero:String;
begin
nEjercicio:=2004;
nNumero:=30;
nNumero:=nNumero+1;
cNumero:=FormatFloat('0000',nNumero)+'/'+IntToStr(nEjercicio);
ShowMessage(cNumero);
end;
Un Saludo.