Накрутка голосования

[Industrial]

Доброго времени суток.
Мне необходимо накрутить голосование на одном сайте. Реализовал на примере аторегистратора на rambler'e, но это не совсем то, что хотелось бы. Нужно чтобы это было в автоматическом режиме, к примеру с интервалом в 12 секунд.
В Delphi мало что понимаю, а программа нужна срочно.
Вот кусок кода:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdHTTP, jpeg;

type
TForm1 = class(TForm)
IdHTTP1: TIdHTTP;
Button2: TButton;
ResultLabel: TLabel;
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
var uniq_id, S:string;
{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
var Data:TStringList;
begin
Data:=TStringList.Create;
Data.Add('pollAnswerID=4');
Data.Add('action=vote');
S:=IdHTTP1.Post('http://*******.***/***/include/functions.php', Data);
if Pos('logout', S)<>0 then
ResultLabel.Caption:='ДА'
else
ResultLabel.Caption:='НЕТ';
end;

end.

Заранее спасибо.

[alexprey]

У тебя ничего не выйдет, тебе нужно будет идти через прокси сервера, потому что на многих сайтах сделана проверка по IP адресу, голосовал ты или нет. А хороших прокси сейчас очень тяжело найти

[Industrial]

Сообщение от alexprey

У тебя ничего не выйдет, тебе нужно будет идти через прокси сервера, потому что на многих сайтах сделана проверка по IP адресу, голосовал ты или нет. А хороших прокси сейчас очень тяжело найти

В том то и дело, что нет проверки по IP, только по интервалу.