公布源码,关于定时器发送/计数源码

看不懂的可以提问.unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Memo1: TMemo;
    Timer1: TTimer;
    Edit2: TEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  i:integer;  //全局变量implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
  if Button1.Caption='定时发送'then
  begin
  i:=0;   //I是全局变量,
    Button1.Caption:='停止';
    Timer1.Interval:=strtoint(Edit1.text);
    Timer1.Enabled:=true;
  end
  else
  begin
    Timer1.Enabled:=False;
    Button1.Caption:='定时发送';
  end;
end;//----------------
//作用:只有当timer1.enable=false时,才停止定时发送
//timer1.inteval表示时间毫秒//----------------
procedure TForm1.Timer1Timer(Sender: TObject);
var
 // i:integer;
  str,str1:string;
begin
//showmessage('11111');
  str1:='';
  str:='1234567890';
  Memo1.Lines.Add(str+'-send');
  i:=i+1; //计数
  edit2.Text := inttostr(i);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  timer1.Enabled :=true;
end;end.