[ecfisa]

Hola webmasterplc.

Por lo que comentas en el mensaje #3 la parte de personalizar ya la tenes encaminada, pero creo que no me has entendido sobre como procesar el punto y coma cuando envias el lote de 1000 mensajes.

A ver si con este ejemplo me explico mas claramente:

Código Delphi [-]
var
  h, l, m: Integer;
begin
  // Asumo que contactos ya tiene asignado los 1000 números
  l:= Low(contactos);
  m:= High(contactos) div 2;
  h:= High(contactos);

  // quitar ";" al contacto 500
  SetLength(contactos[m], Length(contactos[m])-1);
  // quitar ";" al contacto 1000
  SetLength(contactos[h], Length(contactos[h])-1);
  
  // Visualizar el resultado
  ShowMessage(Format('000-499: %s %s%s500-999: %s %s',
    [contactos[l],contactos[m],#10,contactos[m+1],contactos[h]]));
...

Cuando envíes "contáctos" como argumento los datos 500 y 1000 ya no terminarán en ";".

Saludos