Random ??????

Pessoal, tenho uma tabela com 15 registros e os campos Cod e Nome. Gostaria que cada vez que eu clicasse no botão desse um random na tabela mas sem repetir o registro! estou fazendo assim:

var
i: integer;

implemetation

{$R *.DFM}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ADOTable1.Locate(´Cod´, random(i), []);
Edit1.text := ADOTable1Nome.AsString;

end;

procedure TForm1.FormShow(Sender: TObject);
begin
i := ADOTable1.RecordCount;


********************************************

Clicando no botão, algumas vezes o Locate vai pra um registro diferente(que é o que eu quero!) mas outras o Locate permanece no mesmo registro. Tem como evitar isso?

Agradeço qualquer ajuda!