...Select a random datarecord ?

Author: SwissDelphiCenter.ch

procedure TForm1.FormCreate(Sender:TObject);
begin
randomize;
end;

procedure TForm1.Button1Click(Sender:TObject);
begin
table1.First;
table1.MoveBy(Random(table1.recordcount));
end;