Código Delphi [-]Query1.SelectSQL.Text := Query1.SelectSQL.Text + 'where campo=x': Query1.Open;
Query1.SelectSQL.Text := Query1.SelectSQL.Text + 'where campo=x': Query1.Open;