关于edit1的累加有关问题

求一个关于edit1的累加问题
比如edit1.text:=1,它需要累加1共100次，每次累加后的数据能通过dbedit传输到数据库，求高手帮我写一小段代码提醒一下，现在没思路啊，用ttimer行不行啊？

[解决办法]
procedure TForm1.btn2Click(Sender: TObject);
var
i ,nOutData: Integer;
begin
i := 1;

nOutData := StrToInt(edt1.Text);
while i <= 100 do
begin
nOutData := nOutData + 1;
//接下来进行向数据库中传入此数据的操作
end;
end;
[解决办法]

Delphi(Pascal) code

procedure TForm1.Button1Click(Sender: TObject);var  i: Integer;  temp:string;begin  i := 1;  temp := '00000';  while i <= 100 do  begin    temp := LeftStr(temp,Length(temp)-Length(IntToStr(i)));    temp := temp + IntToStr(i);    //接下来进行向数据库中传入此数据的操作    ShowMessage(temp);    Inc(i);  end;   ShowMessage(IntToStr(i));end;
[解决办法]
procedure GetZeroAndInt(sSouure:String;var sZero,sInt);
var
i,len:Integer;
begin
  sZero:='';
  sInt:='';
  len:=Length(sSouure);
  for i:=0 to len-1 do
  begin
     if  sSouure[i]='0' then
         sZero:=sZero+'0'
     else
      sInt:=sInt+sSouure[i];     
  end;  
end;
GetZeroAndInt(edit1.Text,sZero,sInt);

sum:=strtoint(sInt)  
for i:=0 to 99 do
begin
  sum:=sum+1;

    
end;