DBF - поменять местами столбцы

Index я менял, столбцы менялись местами, вот теперь нужно сделать так чтобы он запомнил расположение индексов - Как это сделать?

Моя организация использует XML и DBF одновременно. Одним файлом отправляем одно, другим другое

ConnectionString:= 'Provider=VFPOLEDB.1;Data Source='+ ExtractFileDir(DBFpath)
       +';Mode=Share Deny None;Extended Properties="";User ID="";Password="";Mask Password=False;Cache Authentication=False;Encrypt Password=False;Collating Sequence=RUSSIAN;DSN=""';

with DBFQuery do
  begin
    Close;
    Connection:= cnDBF;
    SQL.Clear;
    SQL.Add('SELECT UNICODE, NUMIP, DT, NUM, NUMRES, DTRES, RESULT, TEXT, FILENAME  FROM "1.dbf"');
    Open;
 
    while not Eof do begin
 
 
      Unicode := FieldByName('UNICODE').asstring;
      Numisp := FieldByName('NUMIP').asstring;
      Dt := FieldByName('DT').asstring;
      Num := FieldByName('NUM').asstring;
      Numres := FieldByName('NUMRES').asstring;
      Dtres := FieldByName('DTRES').asstring;
      Result := FieldByName('RESULT').asstring;
      Text := FieldByName('TEXT').asstring;
      Filename := FieldByName('FILENAME').asstring;
     
      SQL.add('INSERT INTO "1new.dbf" (UNICODE)');
      SQL.Add('VALUES ('''+Unicode+''')'); //пытаюсь хотя бы одно поле вставить для проверки работоспособности
      EXecSQL;
      Next;
    end;

      with DBFQuery do
      begin
        SQL.Clear;
        SQL.Add( 'CREATE TABLE "1.dbf" ( NUM DECIMAL(10, 0), UNICODE CHAR(250), NUMIP CHAR(250), NUMRES CHAR(250), DTRES CHAR(250), RESULT CHAR(250), `TEXT` CHAR(250), FILENAME CHAR(250) ) ' );
        ExecSQL;
      end;

        with Q1 do
        begin
          SQL.Clear;
          SQL.Add( 'INSERT INTO "1.dbf" ( UNICODE, NUMIP, DT, NUM, NUMRES, DTRES, RESULT, TEXT, FILENAME ) SELECT UNICODE, NUMIP, DT, NUM, NUMRES, DTRES, RESULT, TEXT, FILENAME FROM "2.dbf"' );
          ExecSQL;
        end;

          SQL.Add( 'INSERT INTO "1.dbf" ( FILENAME ) SELECT NUMIP + " " + NUM + " " + NUMRES FROM "2.dbf"' );

cnDBF.ConnectionString:= 'Provider=VFPOLEDB.1;Data Source='+ ExtractFileDir(DBFpath)
       +';Mode=Share Deny None;Extended Properties="";User ID="";Password="";Mask Password=False;Cache Authentication=False;Encrypt Password=False;Collating Sequence=RUSSIAN;CharSet=cp866;DSN=""';

SQL.Add( 'CREATE TABLE "OUT\1.dbf" (UNICODE INT, NUMISP CHAR(40), DT CHAR(20), NUM CHAR(40), NUMRES CHAR(40), DTRES CHAR(20), RESULT INT, `TEXT` CHAR(250) CHARACTER SET cp866, FILENAME CHAR(30) ) ' );