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; Application.ProcessMessages; end;
finally
FreeAndnil(F);
end;
end;
Hay otras formas de plantearlo, depende de como quieras hacerlo.
Saludos