用TADOQuery进行Update时出错，请帮帮忙

Question

我的 程序如下:
procedure TForm1.Button1Click(Sender: TObject);
var
  strSQL:String;
  testFile:TextFile;  
begin
  //生成SQL
  strSQL:='Update table1 set Field1='''+getText()+
          ''' Where ID=112';  //将SQL语句存入一sql文件,以便以查询分析器中测试（我用SQLSERVER2000）
  AssignFile(testFile,ExtractFilePath(Application.ExeName)+'\txtx.sql');
  Rewrite(testFile);
  Writeln(testfile,qstr);
  CloseFile(testFile);  //执行
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add(strSQL);
  ADOQuery1.ExecSQL;
end;
其中：字段Field1为Text类型；当 函数getText()返回的字符串不大时则可以通过,
当 函数getText()返回的字符串等于33.2K时在DELPHI中不能通过,提示"不正常的提供参数对象.提供了不一致或不完整的信息."，但在查询分析器中执行通过（此时txtx.sql文件大小为33.2K）。还望各位高手能帮帮我，谢谢！！！！！！

Answer 1

用参数传递试试ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Update table1 set Field1=:Field1 Where ID=112');
  ADOQuery1.Parameters.ParamByName('Field1').Value := getText();
  ADOQuery1.ExecSQL;