Begin
Query1.sql.clear;
Query1.sql.add ('Select Custno, Company, City, State from Customer.db');
Query1.sql.add ('where country = (: countryname)');
Query1.Params [0] .sstring: = Edit1.Text;
Query1.execsql;
Query1.Active: = TRUE;
Edit1.Text: = '';
END;
