No me dibuja en un label en el tiempo correcto

[noob]

Hola, tengo este código y quiero que Label1 actualice su Caption con el mensaje 'Procesando' y cuando acabe tres segundos después, que es lo que dura mi proceso aproximadamente, se actualice con el mensaje 'Procesado'.

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

procedure MiClase.GestionarProceso;
begin
  Procesar;
  Label1.Caption := 'Procesado';
end;

El problema es que el mensaje 'Procesando' lo actualiza inexplicablemente después del proceso con lo que nunca llega a verse.

Realmente lo que ocurre es:

1.- Procesa el repeat until
2.- Actualiza el caption de Label1 a Procesando
3.- Actualiza el caption de Label1 a Procesado

¿Qué he de hacer para que lo haga en el tiempo adecuado? ¿Por qué hace esto Delphi?

Gracias.