try
Button.Enabled := False;
・・・イベント処理・・・
Button.Enabled := True;
finally