[delphi]50分请高手帮我写一短代码,!!!!

我在写一个游戏的刷屏挂,因为这个游戏每次发出的聊天内容要求是于上一句不同的.我想每发一句话.在这句话后面+上1个递增的数字!!

假设窗体上有一个EDIT控件.我想让它的[内容]从1开始,自动+1

应该怎么写??高手来帮帮我啊,想好久了.记住,要是EDIT控件的内容啊,!!!

private

{ Private declarations }

i:Integer;

procedure TForm1.tmr1Timer(Sender: TObject);

begin

i:=i+1;

if i>50 then i:=0;

lst1.Items.Add(edt1.Text+inttostr(i));

end;

有需要留个邮箱我给你做一个简单的