delhi 生成一组数字.(100)

我的程序要隔断时间生成一组十位的数字,前提是:每次生成的和已生成的不一样,本次生成的最好也不要重复.请问如何实现.可以用delphi实现,可以用sql server 实现．

procedure TForm1.Button1Click(Sender: TObject);
begin
randomize;
edit1.text:=inttostr(Random(9))+inttostr(Random(9))+inttostr(Random(9))+inttostr(Random(9))+inttostr(Random(9))+inttostr(Random(9))+inttostr(Random(9))+inttostr(Random(9))+inttostr(Random(9))+inttostr(Random(9));
end;

function getnumber(var l:integer):integer;
begin
l:=l+1;
result:=1000000000+l;
end;
// l 上一个生成数,设置成全局变量