[[maeyanes]]

Bueno, teniendo el valor del campo del registro anterior, puedes hacer algo como esto:

Código Delphi [-]
var
  ValorNuevo: string;
  ParteNumerica: Integer;

begin
  ParteNumerica := StrToInt(Copy(ValorAnterior, 2, 4));
  Inc(ParteNumerica);
  ValorNuevo := Format('A%.4d', [ParteNumerica]) // Esto te devolvería algo como A0003
end;

Saludos...