Fórum Sorteio de Itens com Random não esta Funcionando ? #268323

Pessoal estava utilizando antes IB6, utiliza esta rotina p/ sortear itens
o usuário diz quantos itens ele quer sortear e pronto, agora estou usando
Fb e a rotina não funcionado + alguem pode me dizer porque ?
Obrigado a tds !!!

var
i:Integer;
Quantos:Integer;
QuantItens:Integer;
Estoque:Currency ;
begin
Application.ProcessMessages ;
Quantos:=StrToInt(EdQuantos.Text);
QuantItens:=165741 ;
i:=1;
Randomize;
TableTemp.EmptyDataSet ;
ObjPro.LerDados ;
While i <= Quantos do
begin
ObjPro.Tb_Produto.RecNo:=Random(QuantItens);
TableTemp.Append ;
TableTemp.FieldByName(´Produto´ ).Text:=ObjPro.Tb_Produto.FieldByname(´Produto´ ).Text ;
TableTemp.FieldByName(´Preco_Venda´ ).Text:=ObjPro.Tb_Produto.FieldByname(´Preco_Venda´ ).Text ;
TableTemp.FieldByName(´Preco_Compra´).Text:=ObjPro.Tb_Produto.FieldByname(´Preco_Compra´).Text ;
TableTemp.FieldByName(´Quantidade´ ).Text:=ObjPro.Tb_Produto.FieldByname(´Quantidade´ ).Text ;
i:=i+1;
end;