procedure TForm1.Button1Click(Sender: TObject);
var
server:String;
port:integer;
buf:string;
res:string;
good,i:integer;
begin
Memo2.Lines.Clear;
http.ReadTimeout:=1000;
http.ConnectTimeout:=1000;
good:=0;

if not Check1.Checked then
 begin
 http.ProxyParams.ProxyServer:='';
 http.ProxyParams.Proxyport:=0;
 try
 Memo2.Lines.Add(UTF8toAnsi(http.Post(LabeledEdit1.Text,Params.Lines)));
 except end;
 Caption:=SysErrorMessage(GetLastError);
 Exit;
 end;

for i:=0 to Memo.Lines.Count-1 do
 begin
 buf:=Memo.Lines.Strings[i];

 server:=Copy(Buf,1,Pos(':',Buf)-1);
 delete(buf,1,Pos(':',Buf));
 port:=StrToInt(Buf);

 http.ProxyParams.ProxyServer:=Server;
 http.ProxyParams.Proxyport:=port;
  try
  http.Post(LabeledEdit1.Text,Params.Lines);
  except end;

 res:=SysErrorMessage(GetLastError);
 if res='Операция успешно завершена' then
  begin
  inc(good);
  res:='ok';
  end else res:='Error#'+IntToStr(GetLastError);

 Caption:=IntToStr(i+1)+' из '+IntToStr(Memo.Lines.Count)+'  GOOD='+IntToStr(good);
 memo2.Lines.Add(Server+':'+IntToStr(port)+' - '+res);

 Application.ProcessMessages;
 if Abort then
  begin
  abort:=false;
  Exit;
  end;
 end;


end;