Fórum Random para sortear Produtos o Abacaxi Continua !!! #268720

Pessoal tenho uma base de dados com meus produtos ,
precisaria fazer o seguintes , o usuário determina quero sortear 10 produtos o sistema sortearia para ele dez produtos, um colega aqui me passou esta rotina + infelizmente não esta funcionando, se alguem puder me ajudar !!
Estou usando FB!
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;

[b:63d3fd88ed][color=green:63d3fd88ed]Bloqueado(Saviski)[/color:63d3fd88ed] - Duplicidade http://forum.clubedelphi.net/viewtopic.php?p=185062[/b:63d3fd88ed]