private nombre : integer;
procedure TForm1.Button1Click(Sender : TObject); begin inc(nombre); Edit1.text:=inttostr(nombre); end;
var Form1: TForm1; y : integer; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin if StrToInt(edit1.text) <> 0 then begin y := StrToInt(edit1.text); edit1.Text := IntToStr(y + 1); end else begin Edit1.Text := '1'; end; end;