求购程序！愿给所有积分！(200分)

最近注册了Geipaied4，这样我冲浪时可以赚点银子。但是它的广告条要求鼠标一直在动，我可做不到每分钟内动鼠标。那位大虾能设计一个主流系统托盘的程序，使得当我不在电脑前时，每隔一分钟动一下鼠标。当我上机后自动暂停工作。
如果你可以帮我，请将源程序和编译好的文件发到我的信箱里去。
taozhiyu@21cn.com
如果我满意，就会付你我的全部积分。现为355（截止到3月1日）。

Something is wrong with its server these days.Even you click your
mouse 1000 times per minute your will get nothing yet.

courser: 劝你还是注册CashSurfers，它的记点系统比较好。 CashSurfers.com

我作了一个小程序，让你的鼠标定期动。请出示你的email地址

请到 http://homepage.renren.com/dialarm
或 http://www.geocities.com/usedialarm下载一个计费程序，本身带移动鼠标功能。我现在就用它。

自已写一个不太麻烦，以下程序可以定时移动光标并循环打开几个网页：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls,ShellApi, TimerLst;
type
TForm1 = class(TForm)
Button1: TButton;
Timer1: TTimer;
Timer2: TTimer;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation
{$R *.DFM}
const
URLList: Array[0..3] of String =('http://www.obsof.com',
'http://bbs.nease.net',
'http://www.gm-software.de/',
'http://delphidao.finalfiler.com/');
var
hIE: THandle;
i: Integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
hIE :=FindWindow('IEFrame',nil);
if hIE > 0 then
begin
SetForeGroundWindow(hIE);
Timer1.Enabled := True;
Timer2.Enabled := True;
end
else
showMessage('请先启动IE');
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
curPos: TPoint;
begin
GetCursorpos(curPos);
if curPos.x > (Screen.DesktopWidth - 100) then
SetCursorpos(Screen.DesktopLeft +10,curPos.y);
Mouse_Event(MOUSEEVENTF_MOVE,10,0,0,0);
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
i := (i + 1) mod 4;
if hIE > 0 then
ShellExecute(hIE,nil,PChar(URLList),nil,nil,0);
end;

end.

非常感谢各位朋友的回答！ ：） 首先申明我是个绝对的菜鸟！
我打算接受receyes和howardqu的回答。积分分配2：1。但是菜鸟遇到一个麻烦，系统只允许我给出200分怎么办？余下的给不出去也！谁能告诉我该怎么办？

多人接受答案了。