Código Delphi [-] Application.ProcessMessages; label1.caption := el mensaje que quieras; label1.Update;
Application.ProcessMessages; label1.caption := el mensaje que quieras; label1.Update;