Tdatabase自动连接sql

 我碰到问题如下，我用的是tdatabase连接sql，外部设置好odbc的时候连接没有问题，程序也能跑起来。
 现在我想实现自动连接的功能，代码写在初始化下面：如下
wspg_zd_bz.DatabaseName := 'wspg_zd_bz';
wspg_zd_bz.DriverName := 'MSSQL';
wspg_zd_bz.LoginPrompt := False;with wspg_zd_bz.Params do
beginclear;
Add('DATABASE NAME=' +'wspg_zd_bz');
Add('SERVER NAME=' + '服务器名'); //ServerName也可以是SQL服务器的IP地址
Add('USER NAME=' + '用户名'); //设置MSSQL数据的用户名称 如：sa
Add('OPEN MODE=READ/WRITE');
ADd('SCHEMA CACHE SIZE=8');
Add('BLOB EDIT LOGGING=');
Add('LANGDRIVER=');
Add('SQLQRYMODE=');
Add('SQLPASSTHRU MODE=SHARED AUTOCOMMIT');
Add('DATE MODE=0');
Add('SCHEMA CACHE TIME=-1');
Add('MAX QUERY TIME=300');
Add('MAX ROWS=-1');
Add('BATCH COUNT=200');
Add('ENABLE SCHEMA CACHE=FALSE');
Add('SCHEMA CACHE DIR=');
Add('HOST NAME=');
Add('APPLICATION NAME=');
Add('NATIONAL LANG NAME=');
Add('ENABLE BCD=FALSE');
Add('TDS PACKET SIZE=4096');
Add('BLOBS TO CACHE=64');
Add('BLOB SIZE=32');        
Add('PASSWORD=' + '密码); //设置MSSQL用户口令；
end;然后也能跑起来，但是有些功能出现错误，报错内容如下:'qry_sfgl':type mismatch for field 'bz',expecting:memo actual:string.而bz字段对应的类型Varchar(500)，qry_sfgl是tquery类型请大家给点意见，看看问题出在哪里？