[NumLock]

вот пример как из Delphi кликать по ссылке:

Код:

uses
  MSHTML,

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);

procedure TForm1.Button1Click(Sender: TObject);
var
  url: OleVariant;
begin
  url:='http://j2me.webservis.ru/matrix/Matrix.htm';
  WebBrowser1.Navigate(url);
  while WebBrowser1.ReadyState<READYSTATE_COMPLETE do
    Application.ProcessMessages;
  Button2.Enabled:=True;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  HTMLDocument: IHTMLDocument2;
begin
  HTMLDocument:=WebBrowser1.Document as IHTMLDocument2;
  HTMLDocument.parentWindow.execScript('randclick()', 'javascript');
end;

http://data.cod.ru/134060
по кнопке примерно также

-запускаешь
-жмешь "Open"
-ждешь когда загрузиться страничка, кнопка "Click" станет доступной
-жмешь много раз "Click" - это равносильно нажатию ссылки "Перемешать" на страничке
-сделать таймер для клика самому)