Delphi编号累加问题

[NIGangJunC]

形如001002001这样的编号，我需要将最后3位数进行加法中的累加得到001002002、001002003、001002004...等，请问有什么方法吗？

[shw014]

x:='001002001';
x:=copy(x,1,6)+copy(IntToStr(StrToInt(copy(x,7,3))+1+1000),2,3);

[lyhoo163]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;


type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  S:string;
  L:integer;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
  S:='001002';
  L:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var S1:string;
begin
  L:=L+1;
  S1:=IntTostr(L);
  while Length(S1)<3 do
    S1:='0'+S1;
  Edit1.text:=S+S1;
end;

end.

[NIGangJunC]

引用 2 楼 lyhoo163 的回复:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;


type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  S:string;
  L:integer;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
  S:='001002';
  L:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var S1:string;
begin
  L:=L+1;
  S1:=IntTostr(L);
  while Length(S1)<3 do
    S1:='0'+S1;
  Edit1.text:=S+S1;
end;

end.

挺好的方法，谢谢！