Concatenar un numero determinado de palabras con el contenido de un array

[webmasterplc]

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