einen Button Disabled setzen

[cell]

hi ich habe jetzt in mein Programm eine Druckfunktion eingebaut, aber wenn die Form noch nicht offen ist, bzw die Daten noch nicht drinnen sind, dann sollte der button Enabled:=false; sein
Dazu habe ich mir einen Zähler eingebaut der was bei Form.Create zaehler:=zahler+1 sagt
und bei Form.Close zaehler:=zaehler-1 sagt.
Und bei Form.Activate steht folgendes:

Delphi-Quellcode:

if  zaehler<>0 then
    frmmain.Drucken.Enabled:=true
else
    frmmain.Drucken.Enabled:=false;

thx 4 help