Cari Nama Acak dg SQL

var kata : string;
begin
// CariNama secara Acak
if radiobutton1.Checked then
begin
kata := ‘Select * from kawan ‘;
kata := kata + ‘where (upper(nama)) like ‘+’”‘+’%'+edit1.text+’%'+’”‘+’ order by nama’;
query1.Close;
query1.SQL.Clear;
query1.SQL.Add(kata);
query1.Open;

Sumber : Mikrodata