Накрутка

[alex0097]

Народ как из этого сделать так чтобы от прокси нажимался кликандер самый верхний правый угол. Подскажите пожалуйста.

procedure TForm1.Button1Click(Sender: TObject);
var
  data, list: TStringList;
  i, k: Integer;
begin
  IdHTTP1.ReadTimeout :=9000;
  //IdHTTP1.ProtocolVersion := pv1_1;
  k := 0;
  Data := TStringList.Create;
  List := TStringList.create;
  List.LoadFromFile('1.txt');
  List.NameValueSeparator := Char(':');
  for i := 0 to List.Count - 1 do
  begin
    IdHTTP1.ProxyParams.ProxyServer := List.Names[i];
    IdHTTP1.ProxyParams.ProxyPort := StrToInt(List.ValueFromIndex[i]);
    Data.Add('votec=3');
    Data.Add('x=49');
    Data.Add('y=8');
    Inc(k);
    Application.ProcessMessages;
    try
      IdHTTP1.Post('http://y-many-many.narod.ru', Data);
    except
      on E: exception do
      label1.Caption := E.Message;
    end;
      label2.Caption := IntToStr(k);
  end;
  IdHTTP1.Disconnect;
  List.Free();
  Data.Free();
end;

[alex0097]

народ. так кто нить сможет подсказать?