[[maeyanes]]

Si lo que quieres es que después de ejecutar el contador no se pueda hacer de nuevo, tienes 2 opciones

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;

begin
  Button1.Enabled := False;  // Deshabilitar el botón o
  Button1.OnClick := nil;      // Quitar el manejador de evento
  For i := 1 to 5000 do begin
      Label1.Caption := IntToStr(i);
      Label1.Repaint;
  end
end;

El chiste es no regresarlo a su estado anterior... o sea, si lo deshabilitas, no lo vuelva a habilitar al final del proceso...


Espero que te sirva...


Saludos...