[ecfisa]

Hola webmasterplc.

Revisa las modificaciones:

Código Delphi [-]
procedure TForm1.Btn1Click(Sender: TObject);
var
  i, registros:Integer;
  contactos: array of string;
  http: TIdHttp;
  params: TStrings;
  respuesta: string;
begin
  registros := 2;
  SetLength(contactos, registros);
  contactos [0]:='584128696261';
  contactos [1]:='584262828527';
  http := TIdHTTP.Create(Self);
  try
    params := TStringList.Create;
    try
      for i := 0 to registros-1 do   // for registros := 0 to registros do (no)
      begin
        params.Add('usuario=ksms');
        params.Add('clave=1234');
        params.Add('telefonos='+contactos [i]);
        params.Add('texto=Prueba de SMS Samuel');
        respuesta := http.Post('http://www.ksms.com.ve/webservices/EnvioSMS', params);
      end;
    finally
      params.Free;
    end;
  finally
    http.Free;
    contactos := nil;  // o también: Finalize(contactos);  
  end;
end;

De ese modo el código es lógicamente correcto, pero tendras que probar si envía los sms...

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.

Recuerda: Preguntas distintas = hilos distintos

Saludos