怎么让程序在没有鼠标移动和键盘按键30秒后就循环显示一系列图片？(显示时间为一个变量，可以修改)(10分)

怎么让程序在没有鼠标移动和键盘按键30秒后就显示一系列图片？

移动鼠标或按任一键后就取消显示的图片，返回到程序界面!!

我是菜鸟，刚学DLEPHI不久，请大家帮忙，回答时需要说得详细点。谢谢了
如我程序中指定一个图片目录image里面放001.jpg,002.jpg,003.jpg.....等。这些图片，在程序空闲时就循环的播放这些图片，

随便写了个简单的例子：
var
LastAction: Cardinal;

procedure TForm1.AppMsg(var Msg: TMsg;
var Handled: Boolean);
begin

if ((Msg.message>=WM_KEYFIRST) and (Msg.message<=WM_KEYLAST)) or
((Msg.message>=WM_MOUSEFIRST) and (Msg.message<=WM_MOUSELAST)) then

begin

LastAction:=GetTickCount;
end;

end;


procedure TForm1.FormCreate(Sender: TObject);
begin

Application.OnMessage:=AppMsg;
end;


var
DelayTime: Integer = 30;

procedure TForm1.Timer1Timer(Sender: TObject);
begin

if (GetTickCount-LastAction) div 1000 >= DelayTime then

begin

Timer1.Enabled:=False;
//循环显示 001.jpg ... 002.jpg ...
Timer1.Enabled:=True;
end;

end;