Crear aviso "Espere unos minutos" durante operacion con mucha carga de CPU . AYUDA

[[Lepe]]

Estoy de acuerdo con Bicho, incluso deberías plantearlo de otra forma si quieres actualizar el mensaje de TWaitForm.

Código Delphi [-]

procedure TfrmInformeCarterosTodosPendientes.Create(....);
var F:TWaitForm;
begin

  F := TWaitForm.Create(self);
  try 
     for i:= 0 to dos millones do
     begin
       F.Label1.Caption := 'Quedan '+ intTostr(Reg)+ ' registros';
       F.Update; // ordenamos que se pinte
       Application.ProcessMessages; // damos un respiro para que se pinte
     end;
  finally
     FreeAndnil(F);
  end;
end;

Hay otras formas de plantearlo, depende de como quieras hacerlo.

Saludos