No me dibuja en un label en el tiempo correcto

[Lord Delfos]

Creo que bastaría con llamar a Application.ProcessMessages. Con eso se le da tiempo a la aplicación para que responda a los cambios visuales necesarios.

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

Saludos.