button deaktivieren

[STS301]

Delphi-Quellcode:

procedure TForm1.Buttin1Click;
var
  i: integer;
begin
inc(i,1); //er zählt i wenn der Button angeklickt wird immer eins hoch
if i = 1 then
begin
;
end
else
button1.enabled:= false;