各位高手，俺提一个比较弱的问题，为什么random函数每次调用产生的随机值是一样的？以下用语句说明：
procedure TForm1.Button1Click(Sender: TObject);
var x,y:integer;
z:string;
begin
x:=random(y);
z:=inttostr(x);
edit1.text:=z;

end;

end.

每次启动程序后，多次点击执行按钮出现的随机值不同，但是如果关掉程序，再次启动点击执行，会发现两次启动程序后依次生成的随机值都是一致的，为什么？谁能告诉我？如果我想解决这个问题，应该怎么修改？
盼高手回复，谢谢。