cari data menggunakan componen ADOQuery1

procedure TForm4.Edit5Change(Sender: TObject);
begin
DM.ADOQuery1.SQL.Clear;
 dM.ADOQuery1.SQL.Add('select* from PASIEN where NO_PASIEN="'+Edit5.Text+'"');
 DM.ADOQuery1.Open;

 //jika No urut Ketemu
 if not DM.ADOQuery1.Eof then
 begin
   Edit4.Text:=DM.ADOQuery1.FieldValues ['NO_PASIEN'];
   Edit1.Text:=DM.ADOQuery1.FieldValues ['NAMA'];
    IF dm.ADODataSet1['JK']='P' THEN
     radiobutton1.Checked:=true;
     IF dm.ADODataSet1['JK']='L' THEN
     radiobutton2.Checked:=true;
   Edit2.Text:=DM.ADOQuery1.FieldValues ['JK'];
   edit3.Text:=DM.ADOQuery1.FieldValues ['ALAMAT'];



 end;
   if dM.ADOQuery1.Eof then
 begin
   Button1.Enabled:=false;
  // Edit4.Enabled:=false;
 //merifresh data
   DM.ADOQuery1.SQL.Clear;
   DM.ADOQuery1.SQL.Add('select* from PASIEN');
   DM.ADOQuery1.Open;

end;
end;