一个随机产生时间问题! ( 积分: 30 )

在表里有一个日期型,如"2006-12-1 17:43:17" 我想随机产生一个17.30.00 至 18:00:00的时间放到数据里,如何实现这个随机产生时间功能

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
s:string;
begin
randomize;
i:=random(30);
i:=30+i;
s:=datetostr(date)+' 17:'+inttostr(i)+':00';//当前日期加获取的时间
end; //最后在把s转换为日期保存到数据库中就OK了

谢谢