Deshabilitar Control !!!

[vpepen]

Hola Foro:

Tengo el siguiente problemita: Necesito deshabilitar un control y que no guarde ningún evento mientras esté deshabilitado.

Por ejemplo:

procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
Button1.Enabled := False;
for i := 1 to 2000 do begin
Label1.Caption := IntToStr(i);
Label1.Repaint;
end;
Button1.Enabled := True;
end;

Si el usuario hace clic en el botón, se iniciará el contador y deshabilitará el botón, pero mientras el botón está deshabilitado, si el usuario hace clic de nuevo, cuando finalice el proceso repetirá el conteo otra vez, cuando no debería de hacerlo, ya que el control está deshabilitado.

Las gracias anticipadas,

Víctor.-