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;