Проблемы с SQL запросом. (Delphi)

[maonang]

Здравствуйте, не могу додуматься, почему возникает ошибка при выполнении программы с использованием SQL запроса

Вот код программы:

procedure TForm1.BitBtn1Click(Sender: TObject);
var MDBObj:Variant;
     VirtualADOQuery:TADOQuery;
     StringFile:textfile;
     Directory, StringTextInFile, GetSQL:string;
     j,BufPos1,BufPos2:integer;
begin
//Создание *.mdb файла
if not FileExists('C:\Users\Admin\Desktop\53234234\Source\SurceDB.mdb') then begin
MessageBox(Application.Handle,'База данных не найдена.'+#10+'Программа сама создала необходимый файл.','Информация', MB_OK);
    try
      MDBObj:= CreateOleObject('ADOX.Catalog');
      MDBObj.Create('Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Users\Admin\Desktop\53234234\Source\SurceDB.mdb; Jet OLEDB:Engine Type=5;');
      MDBObj.ActiveConnection.Close;
      MDBObj:= Null;
    except ShowMessage('Ошибка');//Выводит сообщение при ошибке
    end;
      VirtualADOQuery:=TADOQuery.Create(self);
   VirtualADOQuery.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Admin\Desktop\53234234\Source\SurceDB.mdb;Mode=ReadWrite;Persist Security Info=False;';
      VirtualADOQuery.SQL.Clear;
    Directory:='C:\Users\Admin\Desktop\53234234\Source\SQL_F1.txt';
//Посточно парсим текстовый файл
    GetSQL:=''''+'CREATE TABLE TDB (';
    AssignFile(StringFile,Directory);
    if not fileexists(Directory) then
      rewrite(StringFile);
    reset(StringFile);
    while not eof(StringFile) do begin
      readln(StringFile,StringTextInFile);
      //начало текста(исключая пробелы впереди)
      for j:=1 to length(StringTextInFile) do
        if not (StringTextInFile[j] in [' ']) then begin
          BufPos1:=j;
          break;
        end;

      for j:=length(StringTextInFile) downto BufPos1 do
        if (StringTextInFile[j] in [' ']) then begin
          BufPos2:=j;
          break;
        end;
//Конец парсинга
      GetSQL:=GetSQL+copy(StringTextInFile,BufPos1,BufPos2-BufPos1)+copy(StringTextInFile,BufPos2,length(StringTextInFile)-BufPos2+1)+', ';
    end;
    Delete(GetSQL,length(GetSQL)-1,1);
    GetSQL:=GetSQL+');'+'''';
    closefile(StringFile);
     VirtualADOQuery.SQL.Add(GetSQL);
      //VirtualADOQuery.SQL.Add('CREATE TABLE TDB (Column_1 Text, Column_2 Text, Column_3 Text, Column_4 Text);');
    VirtualADOQuery.ExecSQL;
    FreeAndNil(VirtualADOQuery);
  end;
//--------------------
form1.Visible:=false;
form2.show;
end;

Ошибка в "VirtualADOQuery.SQL.Add(GetSQL );", но если в коде писать сам запрос, который идентичен тому, что получается в ходе программы через парсинг, то работает "VirtualADOQuery.SQL.Add('CREAT E TABLE TDB (Column_1 Text, Column_2 Text, Column_3 Text, Column_4 Text);');
VirtualADOQuery.ExecSQL;".
Ниже сама ошибка:
http://s2.ipicture.ru/uploads/20120811/DQxXIJi7.jpg

[Аватар]

Кавычки не нужны в начале и в конце запроса

[maonang]

Тогда возникает другая ошибка
http://s2.ipicture.ru/uploads/20120811/uSAo1e5Q.jpg
но при этом в самом файле создаются необходимые столбцы

[Аватар]

Попробуйте точку с запятой убрать в конце запроса

[maonang]

Ура! Получилось, спасибо большое!