[vpepen]

Hola Vic ia:

La verdad es que probé la opción presentada por ti, pero no me resultó, aparentemente sigue reconociendo el onclick:

Código Delphi [-]

procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
begin
  Button1.OnClick := Nil;
  For i := 1 to 5000 do begin
      Label1.Caption := IntToStr(i);
      Label1.Repaint;
  end;
  Button1.OnClick := Button1Click;
end;