[[duilioisola]]

Otra opción es que cada correo se envíe un tiempo después del anterior, a una velocidad de 200 por hora.
En este caso cada correo se puede enviar cada aproximadamente 3 segundos (180/h)
Yo pondría el TTimer.Interval = 3000 (3 segundos) e iría avanzando sobre la tabla de correos no enviados.
Al quedarte 20 envíos de margen, puedes también enviar otros correos por otras vías.

Código Delphi [-]
OnTimer
var
   direccion : string;
begin
   // Deshabilito el timer por si tarda más de 3 segundos en ejecutarse el procedimiento
   Timer.Enabled := False;
   direccion := DameSiguienteDireccion;
   EnviarCorrero(direccion);
   Timer.Enabled := True;
end;