Código Delphi [-] procedure MiClase.Procesar; begin Label1.Caption := 'Procesando'; Application.ProcessMessages; repeat // Proceso largo until ; end;
procedure MiClase.Procesar; begin Label1.Caption := 'Procesando'; Application.ProcessMessages; repeat // Proceso largo until ; end;