Многопоточность и BDE

TableTrh1.Active:= true;

unit TThreadFiles_1;
 
interface
 
uses
  Classes, SysUtils, MD5, DB, DBTables;
 
type
  TThreadFiles1 = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
    procedure GetAllFilesDB( Path: string);
  end;
 
var
  SessionThr1: TSession;
  TableThr1: TTable;
implementation
     uses Unit1;
 
procedure TThreadFiles1.GetAllFilesDB( Path: string);
var
sRec: TSearchRec;
isFound: boolean;
begin
try
 
isFound := FindFirst( Path + '\*.*', faAnyFile, sRec ) = 0;
while isFound do
begin
if ( sRec.Name <> '.' ) and ( sRec.Name <> '..' ) then
begin
if ( sRec.Attr and faDirectory ) = faDirectory then
GetAllFilesDB( Path + '\' + sRec.Name);
 
 if (FileExists(Path + '\' + sRec.Name) and (ExtractFileExt(Path + '\' + sRec.Name) = '.DBF')) then
 begin
  InfoStruct1.NameFile.Add(Path + '\' + sRec.Name);
  InfoStruct1.MD5File.Add(MD5DigestToStr(MD5File(Path + '\' + sRec.Name)));
  inc(LengthArray1);
  setlength(InfoStruct1.CountRec, LengthArray1);
   ///
 
     TableThr1.TableName:= Path + '\' + sRec.Name;
        TableThr1.Active:= true;
    InfoStruct1.CountRec[LengthArray1-1]:= TableThr1.RecordCount;
    TableThr1.Active:= false;
    inc(ColRecDB1);
    synchronize(form1.SeeRecordsSrc1);
 end;
 
end;
 
isFound := FindNext( sRec ) = 0;
end;
FindClose( sRec );
except
   synchronize(form1.ThreadError1);
end;
 
end;
 
 
 
procedure TThreadFiles1.Execute;
begin
  
   SessionThr1:= TSession.Create(nil);
   SessionThr1.SessionName:= 'SN1';
     TableThr1:= TTable.Create(nil);
      TableThr1.SessionName:= SessionThr1.SessionName;
      SessionThr1.Active:= true;
  GetAllFilesDB(DirPath1);
   synchronize(form1.CancelProc1);
     SessionThr1.Active:= false;
     TableThr1.Free;
     SessionThr1.Free;
   
  terminate;
end;
 
end.

unit TThreadFiles_2;
 
interface
 
uses
  Classes, SysUtils, MD5, DB, DBTables;
 
type
  TThreadFiles2 = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
     procedure GetAllFilesDB( Path: string);
  end;
 
  var
  SessionThr2: TSession;
  TableThr2: TTable;
 
implementation
      uses Unit1;
 
 
procedure TThreadFiles2.GetAllFilesDB( Path: string);
var
sRec: TSearchRec;
isFound: boolean;
begin
try
 
isFound := FindFirst( Path + '\*.*', faAnyFile, sRec ) = 0;
while isFound do
begin
if ( sRec.Name <> '.' ) and ( sRec.Name <> '..' ) then
begin
if ( sRec.Attr and faDirectory ) = faDirectory then
GetAllFilesDB( Path + '\' + sRec.Name);
 
 if (FileExists(Path + '\' + sRec.Name) and (ExtractFileExt(Path + '\' + sRec.Name) = '.DBF')) then
 begin
 
  InfoStruct2.NameFile.Add(Path + '\' + sRec.Name);
  InfoStruct2.MD5File.Add(MD5DigestToStr(MD5File(Path + '\' + sRec.Name)));
  inc(LengthArray2);
    setlength(InfoStruct2.CountRec, LengthArray2);
 
 TableThr2.TableName:= Path + '\' + sRec.Name;
        TableThr2.Active:= true; //ОСТАНАВЛИВАЕТСЯ ВЫПОЛНЕНИЕ БЕЗ СООБЩЕНИЙ ОБ ОШИБКЕ
    InfoStruct2.CountRec[LengthArray2-1]:= TableThr2.RecordCount;
    TableThr2.Active:= false;
   inc(ColRecDB2);
    synchronize(form1.SeeRecordsSrc2);
 end;
 
end;
 
isFound := FindNext( sRec ) = 0;
end;
FindClose( sRec );
except
   synchronize(form1.ThreadError2);
end;
 
end;
 
procedure TThreadFiles2.Execute;
begin
    SessionThr2:= TSession.Create(nil);
      SessionThr2.SessionName:= 'SN2';
        TableThr2:= TTable.Create(nil);
      TableThr2.SessionName:= SessionThr2.SessionName;
      SessionThr2.Active:= true;
   GetAllFilesDB(DirPath2);
   synchronize(form1.CancelProc2);
       SessionThr2.Active:= false;
     TableThr2.Free;
     SessionThr2.Free;
  terminate;
end;
 
end.

var
MyTable: TTable;
begin
MyTable := TTable.Create(Self);
with MyTable do
begin
DatabaseName := 'DBDemos';
TableName := 'Test.DB';
end

ThreadFiles2:= TThreadFiles2.Create(true); //ну невнимательный дурак, что поделаешь