Программирование

Подскажите как написать в Делфи запрос типа " where <любое поле>=<переменная типа integer>", и запрос " where ansiuppercase(<любое поле>)=ansiuppercase(<переменная типа string>)" в Фоксе этот запрос написать просто, а как в Делфи , там возникают всякие ошибки

Я писал вот ТАК:

if combobox1.Text='Любая' then
sqltext:='select * from "baza.dbf" '
else
sqltext:='select * from "baza.dbf" where tema like "%'+ansiuppercase(trim(combobox1.Text))+'%" ';

per:=vartostr(dblookupcombobox1.KeyValue);

if dblookupcombobox1.KeyValue=0 then
query1.Filtered:=false
else begin
query1.Filter:='tip=per';
query1.Filtered:=true; end;