就这么几行！就是找不出有关问题

就这么几行！就是找不出问题！
代码不长，就这么几行！真的没办法，就是找不出问题！希望大牛们看看是什么原因
不要问我为什么这么做，我就是希望用下面SQL2中的方式动态生成SQL语句。
procedure TForm1.Button3Click(Sender: TObject);
Var TableName0 , TableName1 , SQL1 , SQL2 ,DBName : String ;
begin
TableName1 := 'TTT' ;
TableName0 := 'DCCYTR14' ;
DBName := 'D:\Temp\TraDB.Mdb' ;
//-------------------------------------------
SQL1 := 'select * into TTT from DCCYTR14 IN ''D:\Temp\TraDB.Mdb''';
SQL2 := 'select * into ' +TableName1+ ' form ' +TableName0+ ' IN '+ Char(39)+ DBName +Char(39) ;
//-------------------------------------------
Memo1.Lines.Add( SQL2 ) ;
Memo1.Lines.Add( SQL1 ) ;
Label1.Caption := IntToStr(Length(SQL1)) + '  ' + IntToStr(Length(SQL2)) ; 
//-------------------------------------------
  with ADOQuery1 do begin
   with SQL do begin
 Clear ;
 Text := SQL2 ;// <--这里出错，但换成SQL1就能正确运行
   end;
   ExecSQL ;
  end;
end;

------解决思路----------------------
SQL1 := 'select * into TTT from DCCYTR14 IN ''D:\Temp\TraDB.Mdb'''; <---- 静态SQL
还有这种用法？

下断点，放ACCESS里执行一下就知道了
------解决思路----------------------
应该是SQL写错了
------解决思路----------------------
SQL2 := 'select * into ' +TableName1+ ' form '  这里写错了，应该是from