[marcoszorrilla]

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 begin
 Adoquery1.Close;
 Adoquery1.Sql.Clear;
 Adoquery1.Sql.Add('Select * from Pruebas');
 Adoquery1.Sql.Add('Where Nombre = '+QuotedStr(Edit1.Text));
 Adoquery1.Open;
 end;

Un Saludo.