// sbMain : TStatusBar;

  ovMes:=OleVariant(Integer(sbMain));
  LibHandle:=LoadLibrary('MyLibrary.dll');
  if(LibHandle      >= 32)then @Create_AddSpan:=GetProcAddress(LibHandle,'Create_AddSpan');
  if(@Create_AddSpan<>nil)then Thread:=Create_AddSpan(pFile,pList,aKind,ovBar,ovMes,frMain.Handle,ovSql,ovRecordSet);

procedure TfrMain.WmExitThread(var Msg: TMessage);
vegin
  if(Msg.Msg=Wm_ExitThread) then begin
   if(Msg.LParam<>0)then FreeAndNil(TObject(Msg.LParam));
    if(Thread<>0)    then CloseHandle(Thread);
    ShowMessage(IntToStr(sbMain.Panels.Count));  // здесь семейство еще есть
    ShowMessage('1 0 '+sbMain.Panels[0].Text);
    if(LibHandle>=32)then FreeLibrary(LibHandle);
    ShowMessage(IntToStr(sbMain.Panels.Count)); // здесь семейство уже уничтожено или потерян указатель
    ShowMessage('2 0 '+sbMain.Panels[0].Text);

  function Create_AddSpan(aFile: PAnsiChar; aList: PAnsiChar; aKind: OleVariant; aBars: OleVariant; aMess: OleVariant; aHandle: OleVariant; var aSql: OleVariant; var aRecordSet: OleVariant): Integer;
  var
    S: String;
    B: TProgressBar;
    M: TStatusBar;
    Id: Cardinal;
    H:  THandle;
  begin
    Result:=1;
    if (aBars  <>Null)then B:=TProgressBar(Integer(aBars)) else B:=Nil;
    if (aMess  <>Null)then M:=TStatusBar(Integer(aMess))   else M:=Nil;
    if (aHandle<>Null)then H:=THandle(Integer(aHandle))    else H:=0;
    A:=TAddSpan.Create(iif((Integer(aKind)=0)or(Integer(aKind)=3),'[Path]'+vbLine+String(aList),String(aFile)),B,M,H,aSql,aRecordSet);
    if (A.Kind=0) then A.ExecuteItem;
    if (A.Kind=1) then A.ExecuteLoop;
    if (A.Kind=2) or (A.Kind=3) then Result:=BeginThread(Nil,0,@MainThread,A,0,Id);
    if (A.Kind=0) or (A.Kind=1) then FreeAndNil(A);
  end;

  public
    Thread:    Integer;
    LibHandle: THandle;
    ovBar,ovMes,ovHandle,ovSql,ovRecordSet: OleVariant;
    Create_AddSpan: function(aFile: PAnsiChar; aList: PAnsiChar; aKind: OleVariant; aBars: OleVariant; aMess: OleVariant; aHandle: OleVariant; var aSql: OleVariant; var aRecordSet: OleVariant): Integer; stdcall;


procedure TfrMain.ExecuteQuery(aFile: String; aList: String; aKind: Integer);
var
    pFile,pList: PAnsiChar;
begin
  Thread        :=0;
  LibHandle     :=0;
  if(ParamStr(6)='Bar')then ovBar:=OleVariant(Integer(pbMain)) else ovBar:=Null;
  if(ParamStr(6)='Bar')then ovMes:=OleVariant(Integer(sbMain)) else ovMes:=Null;
  ovHandle      :=Null;
  ovSql         :=Null;
  ovRecordSet   :=Null;
  Create_AddSpan:=Nil;
  pFile:=PAnsiChar(AnsiString(aFile));
  pList:=PAnsiChar(AnsiString(aList));
  LibHandle:=LoadLibrary('MyLibrary.dll');
  if(LibHandle      >= 32)then @Create_AddSpan:=GetProcAddress(LibHandle,'Create_AddSpan');
  if(@Create_AddSpan<>nil)then Thread:=Create_AddSpan(pFile,pList,aKind,ovBar,ovMes,frMain.Handle,ovSql,ovRecordSet);
end;