unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TForm1 = class(TForm)    Button1: TButton;    Edit1: TEdit;    procedure Button1Click(Sender: TObject);  end;var  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin  Edit1.Text := IntToStr(StrToIntDef(Edit1.Text, 0) + 1);  if StrToIntDef(Edit1.Text, 0) < 10 then    Button1.Click;  {这样也可以:}//  if StrToIntDef(Edit1.Text, 0) < 10 then//    Button1Click(nil);end;end.