Menampilkan Data Secara Acak

// Menampilkan data secara acak ...

// Digunakan Pada Saat Kita Membutuhkan Suatu Data Secara acak
// Seperti Saat arisan ...

// Masukkan Kode kedalam Button

Begin
Randomize ;
Adotable1.first ;
Adotable1.Moveby(Random(adotable1.recordcount -1 ))
end;