Программная настройка роутера TP-Link

idhttp1.Request.Clear;
idhttp1.Request.CustomHeaders.AddValue('Origin','http://192.168.0.1');
idhttp1.Request.UserAgent:='Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/60.0.3112.113 Safari/537.36';
idhttp1.Request.ContentType:='text/plain';
idhttp1.Request.Accept:='*/*';
idhttp1.Request.Referer:='http://192.168.0.1/mainFrame.htm';
idhttp1.Request.AcceptEncoding:='gzip, deflate';
idhttp1.Request.AcceptLanguage:='en-US,en;q=0.8';
//idhttp1.Request.Username := 'admin';
//idhttp1.Request.Password := 'admin';
//idhttp1.Request.BasicAuthentication := True;
idhttp1.Request.CustomHeaders.AddValue('Cookie','Authorization=Basic YWRtaW46YWRtaW4=');
st:=TStringList.Create;
st.Add('[LAN_HOST_CFG#1,0,0,0,0,0#0,0,0,0,0,0]0,9');
st.Add('DHCPServerEnable=1');
st.Add('minAddress=192.168.0.104');
st.Add('maxAddress=192.168.0.199');
st.Add('IPRouters=192.168.0.1');
st.Add('DHCPLeaseTime=7200');
st.Add('domainName=');
st.Add('DNSServers=10.0.0.101,10.0.0.103');
st.Add('DHCPRelay=0');
st.Add('X_TP_DhcpRelayServer=0.0.0.0');
try
  memo1.Text:=IdHttp1.Post('http://192.168.0.1/cgi?2',st);
finally
 st.Free;
end;

Params := TMemoryStream.Create;
with TStreamWriter.Create(Params, TEncoding.UTF8) do
    try
      NewLine := #13#10;
      WriteLine('[LAN_HOST_CFG#1,0,0,0,0,0#0,0,0,0,0,0]0,9');
      WriteLine('DHCPServerEnable=1');
      WriteLine('minAddress=192.168.0.104');
      WriteLine('maxAddress=192.168.0.199');
      WriteLine('IPRouters=192.168.0.1');
      WriteLine('DHCPLeaseTime=7200');
      WriteLine('domainName=');
      WriteLine('DNSServers=10.0.0.101,10.0.0.103');
      WriteLine('DHCPRelay=0');
      WriteLine('X_TP_DhcpRelayServer=0.0.0.0');
    finally
      Free;
    end;
    Params.Position := 0;
try
  memo1.Text:=IdHttp1.Post('http://192.168.0.1/cgi?2',Params);
finally
 Params.Free;
end;