Código:
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.