Zähler im Edit erhöhen

[Perlsau]

Zitat von blondervolker:

Bin mal wieder zu dusselich...

Kann jemand helfen? habe in der Delphi Schwarte gelesen aber nix gefunden.

Ich möchte nur im Edit1 ein Zähler reinklatschen der die Zahl mit einem Button von 0 auf die nächste Zahl erhöht.

Mit einem Label geht es ja.Aber mit dem Edit nicht.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  zaehler: Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
zaehler:= zaehler + 1;
Label1.Caption:= InttoStr(zaehler)
end;

end.

Was soll daran nicht gehen?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
zaehler:= zaehler + 1;
Edit1.Text:= InttoStr(zaehler)
end;