procedure TForm1.Timer3Timer(Sender: TObject);
var
  s : widestring;
  http : tidhttp;
begin
  http := tidhttp.create;
  http.ReadTimeout := 30000;
  s := httpget (http, 'http://awmproxy.com/proxy.php?Id=********&d=1');
  if extractb (s, '[^\r\n]*[^\r\n]') <> nil then
  begin
    CriticalSection.Enter;
      proxys.Clear;
      proxys.AddStrings (extractb (s, '[^\r\n]*[^\r\n]'));
    CriticalSection.Leave;
  end;
  http.Free;
end;