[webmasterplc]

Buenas, estoy tratando de recorrer un array para tomar el teléfono desde alli y enviar un sms desde un archivo php en mi servidor, debo enviar los datos a través del método post, en el envio todo bien pero cuando quiero tomar el numero de contacto de un array solo me envia el primer registro y me da un error en delphi y no envía el resto.

Código Delphi [-]
procedure TForm1.btn1Click(Sender: TObject);
var
registros:Integer;
contactos: array of string;
http: TIdHttp;
  params: TStrings;
  respuesta: string;
begin
registros:=2;

SetLength( contactos, registros );
contactos [0]:='584128696261';
contactos [1]:='584262828527';

for registros := 0 to registros do
begin
  http := TIdHTTP.Create(Self);
  params := TStringList.Create;
  try
    params.Add('usuario=ksms');
    params.Add('clave=1234');
    params.Add('telefonos='+contactos [registros]);
    params.Add('texto=Prueba de SMS Samuel');
    respuesta := http.Post('http://www.ksms.com.ve/webservices/EnvioSMS', params);
      finally
    http.Free;
    params.Free;
  end;
  contactos:=nil;


end;
end;

Y si alguien me puede orientar tambien de como hago para pasar datos de un query a un array pero quiero tomar nombre y contacto la base de datos es mysql.