unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons, ExtCtrls, StdCtrls, Db, ADODB, Grids, DBCtrls, DBGrids;
 
type
  TForm1 = class(TForm)

http://delphi.about.com/od/database/l/aa121499a.htm

ADOTable1.Filter :=
  'Cost = 0 AND
   Type = ' + QuotedStr(Edit1.Text);

 
procedure TForm1.SearchButtonClick(Sender: TObject);
var  HurricaneName: string;
begin
HurricaneName := HurricaneSearchBox.text;
with ADOQuery1 do begin
  Close;
  SQL.Text := 'SELECT * FROM Huracanes WHERE Huracanes.Nombre =' + tblname;
  Open;
end;