type missmatch in expression问题

var
truno:string;
begin
truno:=chosetno.text;(在下拉菜单中选择一个值)
query1.close;
query1.sql.clear;
query1.sql.add('select misson,tno,tdrv');(表中的三个字段)
query1.sql.add('from misson1');(数据库为MISSON1.DB)
query1.sql.add('where misson1.tno='+truno);
query1.open;
执行后老是提示"type missmatch in expression"真受不了了,数据库MISSON1.DB是PARADOX表,字段TNO是ALPHA型的.希望高手不吝赐教!