button disablen ne funktion ausführen und wieder enablen?

[Delphi Star]

procedure TForm1.Button1Click(Sender: TObject);
...
begin
Button1.Enabled := false;
...
button1.Enabled := true;
...
end;

Wiso funzt das net???
Ich möchte das wenn man den Button drückt,er undrückbar gemacht werden soll, dann soll die Funktion ausgeführt werden und dann soll der button wieder drückbar gemacht werden, bezwecken möchte ich damit das man die funktion net zweimal starten kann oder erst wieder wenn sie abgelaufen ist.
Gibts dafür nen anderen weg als meinen??