Bloqueo de teclas al exporta a excel

[[Al González]]

No queda muy claro qué eventos de ratón y teclado y sobre qué controles de la pantalla interrumpen la exportación. Pero, a simple vista, pareciera que sería suficiente inhabilitar la rejilla y el botón que lanza la exportación justo antes de iniciar ésta, y volverlos a habilitar al terminar:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Enabled := False;
  Rejilla.Enabled := False;

  Try
    ExportaExcel (...);
  Finally
    Button1.Enabled := True;
    Rejilla.Enabled := True;
  End;
end;