procedure TForm10.Edit1Change(Sender: TObject);
begin
ADOQuery1.SQL.Clear;
 ADOQuery1.SQL.Add('select* from barang');
 ADOQuery1.Open;
end;