Получение данных

[King_Of_Arthur]

Здравствуйте у меня есть несколько архивов в которых есть файл с одинаковым именем PT.dbf во всех архивах я их разворачиваю

begin
  MT1.Open;
  MT1.EmptyTable;
  MT1.Append;
zagr:=0;
  i:=0;
  KolS:=0;
//  ImPath:=Dir_NSI;
  ImPath:=ExePath+'Анализ протоколов тестирования';
//  fres := FindFirst(ImPath+'\*.dbf', faAnyFile xor faDirectory xor faVolumeID, SR);
  fres := FindFirst(ImPath+'\*.*', faAnyFile xor faDirectory xor faVolumeID, SR);
  while fres = 0 do begin
     DeleteFile (WorkPath+'\*.*');
     i:=i+1;
     KOlS:=KolS+1;
     ImFl:=Sr.Name;
     MT1['iafPT']:=ImFl;
     Arx:=1;
     ImR:=Q_GetWordN(2,ImFl,'.');
     if (ImR='dbf') then
         Arx:=0;
     Prox:=0;
     if Arx = 1 then begin
//развернем архив
        PackCmd :='"C:\Program Files\WinRar\winrar.exe"-o+ e %DATAFILE %FILELIST"';
        FileList :='"'+WorkPath+'"';
        DataFName:='"'+ImPath+'\'+ImFl+'"';
        PackCmd := Q_ReplaceStr(PackCmd, '%DATAFILE', DataFName);
        PackCmd := Q_ReplaceStr(PackCmd, '%FILELIST', FileList);
        CharToOemBuff(@S1[1], @S1[1], Length(S));
        State:=ExecWaitClose(PackCmd, S1);
 
     end
     else begin
       Prox:=1;
       try
         CopyFile(PAnsiChar(ImPath+'\'+ImFl), PAnsiChar(WorkPath+'\'+ImFl), False);
       except
         Prox:=0;
       end;
     end;
 
     fres := FindNext(SR);
  end; {ot FindFirst}
  FindClose(SR);
 
end;

ну тут много грязи но в общем разворачивается каждый архив по очереди а предыдущий архив удаляется.
Как мне подключится к таблице PT.dbf и доставать оттуда данные и заполнять в таблицу.
я вот так делаю

     Q2.Close;
     Q2.DatabaseName:='"C:\111\"';
     Q2.SQL.Clear;
     Q2.SQL.Text:='select pokaz from PT.dbf where np=5.1';
     Q2.Open;
     MT1['ter']:=Q2.fieldbyname('np').asstring;

но он ругается на директорию

[King_Of_Arthur]

все норм подключилась

Q2.Close;
     Q2.DatabaseName:=ExePath+'Àíàëèç ïðîòîêîëîâ òåñòèðîâàíèÿ\111\';
     Q2.SQL.Clear;
     Q2.SQL.Text:='select pokaz from PT.dbf where np=5.1';
     Q2.Open;
     MT1['ter']:=Q2.fieldbyname('pokaz').asstring;