[Casimiro Noteví]

Algo así:

Código Delphi [-]
var
  iRegistros, iNumero : integer;
begin
  randomize;
    
  query.close;
  query.sql.text:='select count(*) from palabras.db';
  query.open;
  iRegistros := query.fields[0].asinteger;
  
  iNumero := random(iRegistros)+1;
    
  etc...


end;