Fungsi Filter Pada Delphi

Berikut  ini admin kembali memposting fungsi Filter data dengan Delphi

__________________________________________________
Begin
ADOQuery1.SQL.Clear;
if RadioGroup1.ItemIndex=0 then
      ADOQuery1.SQL.Text:='select * from siswa where nis LIKE"'+Edit1.Text +'%"'else
        ADOQuery1.SQL.Text:='select * from siswa where nama_siswa LIKE"'+Edit1.Text +'%"';
  ADOQuery1.Open;
End.
__________________________________________________