Fórum Buscar resgistro atraves de nº randomico #230819

Pessoal, boa noite!
Preciso do seguinte, tenho uma query com varios registros por exemplo de 1 a 300, tenho que gerar um numero randômico neste intervalo, até ai tudo bem só que preciso trazer os dados deste de registro da query.
Desta maneira não está dando certo:
procedure TfrmSorteio.Button1Click(Sender: TObject);
var
I : Integer;
begin
Randomize;
I := random(qrySorteio.RecordCount);
Label3.Caption := qrySorteio.fieldbyname(´Cod_Locacao´).AsString[I];
end;
end.