如何在TIMER每隔几秒事件中逐行写入数值

userchm

下面的代码会一下子全写出，
如何在TIMER每隔几秒逐行写入物品名，请高人指点下！
procedure TForm1.Timer1Timer(Sender: TObject);
var
  id:Integer;
  wpname:string;
begin
  For Id := 0 To 39 do
  begin
    wpname :=pchar($64CBC8 + $1 + id * $60); //物品名
    listbox1.items.add(wpname);
    Timer1.Interval:=StrToInt(Trim(ComboBox1.Text));
end;

yemao4587

procedure TForm1.Timer1Timer(Sender: TObject);  
var  
  id:Integer;  
  wpname:string;  
begin  
  if  listbox1.items.count<40 then
  begin  
    wpname :=pchar($64CBC8 + $1 + listbox1.items.count * $60); //物品名  
    listbox1.items.add(wpname);  
    Timer1.Interval:=StrToInt(Trim(ComboBox1.Text));  
end;