Sorteio de números sem repetir ?

fiz um programinha de perguntas e respostas ta funcionando beleza. So que estou querendo sortear sem repetir as mesma. banco de dado em firebird. desde ja agradecendo.

private
{ Private declarations }
public
{ Public declarations }
end;

var
frmjogo: Tfrmjogo;
numpergunta, contagem, acerto, erro: integer;
hora: ttime;


implementation

{$R *.dfm}

procedure Tfrmjogo.sortearpergunta;
begin
hora:= StrToTime('00:00:00'); // zera o cronômetro a cada novo sorteio
ProgressBar1.Position:=0;// faz a progress bar retornar a posição inicial
Timer1.Enabled:= true;// habilita o tempo
rgppergunta.Enabled:= true;// habilita as caixas para o usuário responder
contagem:=1;// inicia a contagem
randomize; // força um sorteio diferente
numpergunta:=RandomRange(1,10);// sorteia um número de 1 a 10
tblpergunta.Locate('per_cod',numpergunta,[]);// localiza na tabela o código sorteado
rgppergunta.Caption:= tblperguntaPER_QUEST.Value;// adiciona a pergunta no caption
rgppergunta.Items.Add(tblperguntaPER_RESP0.Value);// adiciona as perguntas nos 'itens via código
rgppergunta.Items.Add(tblperguntaPER_RESP1.Value);
rgppergunta.Items.Add(tblperguntaPER_RESP2.Value);
rgppergunta.Items.Add(tblperguntaPER_RESP3.Value);
end;