TAddExec = class(TThread)
  private
    ParentExecute: TExecute;
    AddTerminate:  TTerminate;
   protected
    //
  public
    HandleParent: TAddSpan;
    constructor Create(aHandleParent: TAddSpan; aExecute: TExecute; aTerminate: TTerminate);
    destructor  Destroy;
    procedure   Execute; override;
  published
    //
  end;

  TAddSpan = class(TObject)
  private
    ttExit:   TTimer;
    thExec:   TAddExec;

  protected
    //
  public
    procedure   TerminateThread(Sender: TObject);
    procedure   KillThread(Sender: TObject);
  published
    //
  end;


  constructor TAddSpan.Create(aFile: String; aBars: TProgressBar; Terminate: TTerminate; var aSql: OleVariant; var aRecordSet: OleVariant);
  var I: Integer;
      ...........
  begin
    Inherited Create;
    .............................
    ttExit:=TTimer.Create(Nil);
    ttExit.Enabled:=False;
    ttExit.Interval:=50;
    ttExit.OnTimer :=KillThread;
    .............................
    pSql:=@aSql;
    pSet:=@aRecordSet;
  end;


  constructor TAddExec.Create(aHandleParent: TAddSpan; aExecute: TExecute; aTerminate: TTerminate);
  begin
    Inherited Create(True);
    HandleParent   :=aHandleParent;
    ParentExecute  :=aExecute;
    AddTerminate   :=aTerminate;
    FreeOnTerminate:=True;                          -- эти методы не работаю поставил для порядка
    OnTerminate    :=HandleParent.TerminateThread;  -- эти методы не работаю поставил для порядка 
  end;



  ......

  procedure TAddExec.Execute;
  begin
    ParentExecute;
    HandleParent.ttExit.Enabled:=True;
  end;


  procedure TAddSpan.KillThread(Sender: TObject);
  begin
    ttExit.Enabled:=False;
    thExec.Terminate;
    while (not thExec.Terminated) do begin
    end;
    thExec.Free;
    thExec:=Nil;
    //ShowMessage('For call Event terminate');
    TerminateThread(Sender);
  end;

  procedure TAddSpan.TerminateThread(Sender: TObject);
  begin
    pSql^:=OleVariant(SQL);
    if Assigned(adResult) then pSet^:=adResult.Recordset;
    if(Sender<>Nil)then mtExit(Self);
    Self.Free;
    Self:=Nil;
  end;

  procedure TAddSpan.KillThread(Sender: TObject);
  begin
    //ttExit.Enabled:=False;
    //thExec.Terminate;
    //while (not thExec.Terminated) do begin
    //end;
    //thExec.Free;
    //thExec:=Nil;
    ShowMessage('For call Event terminate');
    //TerminateThread(Sender);
  end;

type
  TDLLThreadSync=class
  private
    FWnd:HWND;
    procedure WndProc(var Msg:TMessage);
    procedure WakeMainThread(Sender:TObject);
  public
    constructor Create;
    destructor Destroy; override;
  end;

{ TDLLThreadSync }

constructor TDLLThreadSync.Create;
begin
  FWnd:=AllocateHWnd(WndProc);
  Classes.WakeMainThread:=WakeMainThread;
end;

destructor TDLLThreadSync.Destroy;
begin
  Classes.WakeMainThread:=nil;
  DeallocateHWnd(FWnd);
end;

procedure TDLLThreadSync.WakeMainThread(Sender:TObject);
begin
  PostMessage(FWnd,WM_NULL,0,0);
end;

procedure TDLLThreadSync.WndProc(var Msg:TMessage);
begin
  if Msg.Msg=WM_NULL then
    CheckSynchronize
  else
    Msg.Result:=DefWindowProc(FWnd,Msg.Msg,Msg.wParam,Msg.lParam);
end;

  TAddExec = class(TThread)
  private

    DLLThreadSync: TDLLThreadSync;

    ParentExecute: TExecute;
    AddTerminate:  TTerminate;
   protected
    //
  public
    HandleParent: TAddSpan;
    constructor Create(aHandleParent: TAddSpan; aExecute: TExecute; aTerminate: TTerminate);
    destructor  Destroy;
    procedure   Execute; override;
  published
    //
  end;

  constructor TAddExec.Create(aHandleParent: TAddSpan; aExecute: TExecute; aTerminate: TTerminate);
  begin
    Inherited Create(True);

    DLLThreadSync  :=TDLLThreadSync.Create;

    HandleParent   :=aHandleParent;
    ParentExecute  :=aExecute;
    AddTerminate   :=aTerminate;
    FreeOnTerminate:=True;
    OnTerminate    :=HandleParent.TerminateThread1;
  end;

  destructor TAddExec.Destroy;
  begin
    inherited;
  end;

  procedure TAddExec.Execute;
  begin
    ParentExecute;

    DLLThreadSync.Free;

  end;

  procedure TAddSpan.TerminateThread1(Sender: TObject);
  begin
    ShowMessage('Call Terminate');
    TerminateThread(Sender);
  end;

  procedure TAddSpan.TerminateThread(Sender: TObject);
  begin
    pSql^:=OleVariant(SQL);
    if Assigned(adResult) then pSet^:=adResult.Recordset;
    if(Sender<>Nil)then mtExit(Self);
    Self.Free;
    Self:=Nil;
  end;

 destructor TAddExec.Destroy;
  begin
    inherited;

    DLLThreadSync.Free;
  end;

 destructor TAddExec.Destroy;
  begin
    DLLThreadSync.Free;
    inherited;
  end;

 
 BeginThread()
 // CreateThread() 
 CreateEvent()
 WaitForSingleObject()
 WaitForMultipleObjects()
 CloseHandle()