简单的语句，找不出的异常

简单的语句，找不出的错误
procedure TForm1.Button3Click(Sender: TObject);
var
str1,str2:string;
begin
str1:='XJ4FUPS42-1';
str2:='20130101' ;
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('update 测试时间');
query1.SQL.Add('set 测试时间=20130101');
query1.SQL.Add('where 蓄电池组名称=XJ4FUPS42-1');
query1.ExecSQL;
end;

新手求教
数据库字段都是字符型
update set where.....请问我错在哪？
str1,str2变量代入也不行。
------解决方案--------------------

var str1,str2:string;

begin

  str1:='XJ4FUPS42-1';

  str2:='20130101' ;

   with query1 do

     begin

       close;

       sql.Clear;

       sql.Add('update 表名 set 测试时间='''+str1+''' where 蓄电池组名称='''+str2+'''');

       ExecSQL;

     end;

end;

{修改成这样，亲测！}

------解决方案--------------------

procedure TForm1.Button3Click(Sender: TObject);

var

str1,str2:string;

begin

str1:='XJ4FUPS42-1';

str2:='20130101' ;

query1.Close;

query1.SQL.Clear;

query1.SQL.Add('update 测试时间');

query1.SQL.Add('set 测试时间=''20130101''');

query1.SQL.Add('where 蓄电池组名称=''XJ4FUPS42-1''');

query1.ExecSQL;

end;