Intraweb: Comparar contenido de un edit en campo de la BD

[marcoszorrilla]

procedure TForm1.Button1Click(Sender: TObject);
begin
Adoquery1.Close;
Adoquery1.Sql.Clear;
Adoquery1.SQL.Add('Select * from Libros');
Adoquery1.SQL.Add('Where autor = '+QuotedStr(Edit1.Text));
Adoquery1.Open;
end;

Como ves he utilizado las etiquetas code que citaba el amigo DarkByte.

Un Saludo.