Отключение события на время выполнения задачи

Ниже приведена реализация задержки выполнения процедуры события:

procedure TForm1.Button1Click(Sender: TObject) ;
var
   SavedOnClick : TNotifyEvent;
begin
   SavedOnClick := TControl(Sender).OnClick;
   { Отключаем событие OnClick кнопки }
   TControl(Sender).OnClick := nil;
   try
     // Код, который выполняется какое-то время
   finally
     { Опять позволяем кнопке выполнять действие }
     TControl(Sender).OnClick := SavedOnClick;
   end
end;