Retomando este hilo brother ya hice la funcion concatenar
le paso los parametros del array y me concatena bien quitando la (,) como queria
ahora solo me falta controlar que cuando recorra los primeros 500 registros haga una accion y luego retome donde quedo y continue y al llegar a 500 haga la accion y si aun hay elentos continue
algo asi como esto
Código Delphi
[-]
if tope < 500 then
begin
for i:= Low(contactos) to High(contactos) do
begin
Concatenar((Format('%s', [contactos[i]])));
tope:=tope+1;
end;
end